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In Depth Review: 

Commodore's New 

1581 Disk Drive 



CP/M Mods for the 1581 

Transparent C64 
ROM Cartridges 

Easy-To-Build User Port 
to True RS232 Interface 

Independent 80-Column 
Screens on the CI 28 

80-CoIumn Hi-Res ' ' 
Colour on the C 128 

MoreC128MMU Secrets! 

Amiga Section: 

Butterfield: Quote Mode 
on the Amiga? It's there! 

Event Maker: 
Look Ma, No Hands! 

Get 1080 Performance 
from your 1902 Monitor 

Enhanced ECHO Command 





WPUTER 
minutes! 



Canada $4.25 
USA $3.50 



The Potpourri Disk 



Help! 



This HELPful utility gives you Instant 
menu-driven access to text files 
at the touch of a key - while any 
program Is funnlrgi 



Loan Helper 



How much Is that loan really going 
to cost you? Which Interest rate 
can you afford? With Loan Helper, 
the answers are as close as your 
friendly 641 



Keyboard 



Learning how to play the piano? 
This handy educational program 
makes It easy and fun to laarn the 
notes on the keyboard, 



WarBoHoons 



Shoot down those evU Nazi War 
Bolloons with your handy Acme 
Cannon! Don't let them get away! 



Von Ooogol 
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At lastl The mad phlfosopher, 
Heiga von Googol, brings her own 
brand of wisdom to the small 
screen! If this is 'Al', then It Just ain't 
naturall 



News 



Save the money you spend on 
those supermarket labloids - this 
program will genera le equally 
convincing headline copy - tor 
freel 



z 



Bag the Elves 



A cute Uttle arcade-styie game; 
capture the elves In the bag aa 
quickly as you can - but don't get 
the good elf I 



Blackjack 



The most flexible blackjack simula- 
tion you'll find anywhere, Set up 
your favourite rule variations for 
doubling, surrendering and apllt- 
ting Ihedeck. 



File Compare 



Which of those two ffJes you juat 
created Is the most recent ver- 
ilon? Wllh this greal utility you'll 
never be left wondering, 



Flledump 



Examine your disk flies FAST with 
this machine language utility 
Handles alx formats, Including hex, 

decimal, CBM and true ASCII, 

WordPro and Speed Script, 



Anagrams 



Anagrams lets you unscramble 
words for crossword puzzles and 
the like. The program uses a recur- 
sive ML subroutine for maximum 
speed and efficiency, 



Life 



A FAST machine language version 
of mathematician John Norton 
Conway's classic simulation. Set 
up your own ^colonies' and watch 
them growl 



Wrd 



The ultimate In eoay-to-use data 
base programs. WRD lets you 
quickly and simply create, exam- 
ine and edit lust about any data. 

Comes with sample file. 



ttUJZ 



Trivia fanatics and students alike 
will hove fun with this program, 
which gives you multiple choice 
Teats on material you have en- 
tered with the WRD program. 



AHA1 Lander 



AHAI's great lunar lander program. 
Use either joystick or keyboard to 
compete against yourself or up to 
8 other players. Watch out for 
apace mineal 



Ohout Dogs 



Arcade maniacs look outi You'll 
need aii your dexterity to handle 
this wicked joyatlck-busterf These 
mad dog-monsters from space 
are not for novlceal 



Octagons 



Just the thing for you Menaa types 
Octagons Is a chiallenging puzzle 
of the mind. Four levels of ploy, 
and a tough 'memory' variation 
for real expertal 



Backslreels 



A nifjy orcode game, 100% ma- 
chine language, JhoJ helps you 
learn the typewriter keyboard 
while you playf Unlike any typing 
progrom you've seeni 



All the above programs, just $17.95 US, $19.95 Canadian, No, not EACH of the 
above progranns, ALL of the above programs, on a single disk, accessed 
Independently or fronn a menu, with built-in menu-driven help and fast-loader. 

The ENTIRE POTPOURRI COLLECTION 

JUST $17.95 US!! 



See Order Card at Center 
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Bits and Pieces 

Hibbon Rejuvenaiioii 

CAUTION! 

Defaults 

Ppek-a-Page 

File Hider 

More on the VALBug 

Mukiply Bug 

LJST During a Prc^ram 

Inside View 

Mobile BASIC 

Byies Free 

GeEiing The Bool 

Booiing Up Yojr Mode Menu 

Quick Fik-C{jpitf 

FAST GULP 

Built-in Crash Prolecliort 

Common Memory 

Customizing CU Windows 

Titles in Amiga Basic 

Easier L^ 



Letters 
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Gbssy paper pricing 
BIdzin' Forth docs 
Drive head noise abatement 
The 680 10 and commercial disks 
Taking Amiga to task 
Mysierbus quote mode explained 
Guru mail departmerii ' 
More Ptus/4 Tech Into 

News BRK 76 

No-Faull Program Entry Jnsurance 

Send TPUG Subscriptions lo TPUGI 

Transactor Renewals 

Multiple Year Subscriptions 

Use the New Subscription Cardsl 

New Transactor Special Outers 

U.S. Orders Invoiced In Canadian Dollars 

Advertisers Wanted 

Group Subscription Rates The 20/20 Deal 

Mail-Ordt'r Products No Lxjnger Offered 

Transactor Mail Order 

AmiF-XPOinNewVorkCily 

SpeoidI Amigrf Software Offer 

Benchmark Moduld-2 from Oxxi, Inc. 

Design Text, from DesignTech 

JForih, froni Delta Research Inc. 

LexCheck, fromC.DAInc. 

VideoScape 30^ from Aegis Development Jnc. 



• • 



TransBloops 

The Blunder lul Mr. Ed 

Long Symass Labels 

Space or Null String 

A tew TraniBasit bugs 

Capacitance Meter Line Numbers 

First-Aid for Programmer's Aid 

Xret64 

Division Revision 
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Transactor 







ABOUT THE COVER: Toronlos CN Tower is ihe lallesi frw-sfanding slrudure in the 

world II lcH>k iusi over 3 years tor a crew of 1537 Eo aimplete [he fower, af d cost of *57 
million. It Wnis built by CN Tele<:omniurLHatio05 lom'erconie the probfems faced by iiniis 

wishing lo transmit Iheir signals iiorlWard past the stowing Tororifo downliiw[i core. The 
lip reaches 1815 feel 5 inches (553.3:ini| into (he sky - ahoor 5Vz football fields. The 
'doushiiijl" shaped porlion houses nio.ii of [he cuinniunicalions equipmem The angled 
penmeteTJust above is Ihe oiiltloor observarion (Jpck (heighf; 1136 feel or :^4(iml. One 
floor above thai is Ihc indoor c^servalioii deck. On ihe same level is "Sparkles", a 
discotheque wilh a spectacular vtew of Ihe Toronto skyline, said lo be one of Ihe mosi 
liaiidsome profiles In Ihe world. Above Ihal Is ihe "Top of Toronto" reslaurani, aptly 
named, which makes one complele revolution every 72 minutes. The smaller pod at Ihe 
base of the antenna Is known as llie ^ace deck It's Ifie highest observation deck In the 
worklal M65 feet (447m), bul only 11 feel higher than the roof ohlie Sears T'ower in 
C)ilcaSO All decks combined have a capiciiy of aboul 4tM) people, and about 1 7 million 
visii each year AscendJngor descending, Ihe elevators iravet at aboul I5kmh. making 
Ihem Ihe lasleal commercial elevators In ihe world -descending is equivaleni to falling In 
an open parachute. Tlplo base, Ihe lower is within plumb by f.l inch On windydaysthelipcanaway3 feci in either direclion 
flirniled by two 10 Ion sv^'ingingTOunietweigMs mounted on Ihe antenna), arKlwa&desigjiedlo withstand winds up to 260 m 
All windows have an ouler pane, -Vii inch Ihkk, an inner pane. '/flinch iJiick. are armour-plaled. and can wilhslanri pressures in 
excess of 120 psl. All consttuclion mafcnals were chosen for their fire-proof or Eire-resislant qualities Siiiokmt; is allowed in the 
restaurdnis oEily fn Ihe unlikely eveni of fire, several pumps al Ihe ha.^ can send up otK) gallons of water per minute. There is 
also a reservoir of water iusi above the main pod Lightning strikes tiie lower aboni 60 limes per year bul Ihere s probably no 
safer place during a slorm Every sutfac-e^ hich could possibly allraci lishlnmg isallaclied to ihree copper sirips tunning down 
Ihe lower, connected lo fc^ly-two 22 foot grounding rods buried 20 feet below ihe surface SiTJce Ihe lower opened in '78, Prof. 
Wasyl Janischewskyj of Ihe University of Toronto has been in charge of a lightning study al rhe CN Tower They've found thai 
lighlning siaris from the smaller surface 3o if it hils a lake or i field, Ihe lighlnin^ indeed comes down from Ihe clouds. If the 
bwer end of the path is the tip ol a tali building, Ihe clouds arc then the lrtrgi?r surface and Ihe lighlning goes up. Smce lightning is 
the resull of opposite sialic cliarges between the clouds and griwind, any tower reduces ihe dislance the spark is require to 
jump, which means Ihedischargc occurs al lower voltages. Pn?r Janischevi^kyi's leam felt this might do less damage, but then 
discoveredlhal whal appears 10 be a single boil iL often adualiy several rapid flashes when rhe lower end is the' lip of a tail 
structure lnformalH>n from tlie sludy will undraihiedty aswsl power companies design insulators on hvdro towers thai are less 
Ijliely to shorl-circuii Special thanks lo Joan Cormier and Penny Wrighl of Ihe CN Tower for supply'mg ihe photo dnd Ihese 
inieresting facts. Extra special Ihanks lo Patricia Kelly, and lo Allan Slokell of Positive Initiges. for helping u.s find the supplier. 



The Transactor 



November 1987: Vblume 8, Issue 03 



IkKusadoi' 

Editor-Ln-Chter 

KarlJ,H.HUdon 

Publisher 

Richard Evers 

l^hnkat Editor 

Chris Zaiitard 

Submisalonfl Eilitor 

Nick Sullivan 

Customer Service 

Jennifer Reddy 



^ Contributing 

Ian Adam 
David Archibald 
Jim Bdrbarello 
Anthony Bertram 
Tim Bolbach 
Donald Branson 
Neal Bridges 
Anthony Bryant 
Jim Butter field 
Dale A, Castello 
Betty Clay 
Joseph Caffrey 
Tom K. Collopy 
Robert V. Davis 
Eliz^jeth Deal 
Frank E, DiGioia 
Chris Dnnn 
Michael J. Erskine 
Jack Fanah 
Mark Farris 
Jim Frosi 

MJklos Garamszeghy 
Erk^ Germain 
Michael T. Graham 
Eric Guiguere 
Thomas Gurley 
R. James de Graff 
Tim Grantham 
Adam Herst 
Thomas Henry 
John Holtlum 
John Houghlon 
Robert Huehn 
David Jankowski 
Clifton Karnes 
Lome Klassen 



Writers 

Jesse Knight 
Gregory Knox 
David Lalhrop 
James A. Lisowski 
Richard Lucas 
Scott Maclean 
Steve McCrystal 
Stacy Mclnnis 
Chris Miller 
Terry Montgomery 
Ralph Morrill 
D.J. Morris 
Michael Mossman 
Bryce Nesbiii 
Gerald Neufeld 
Noel Nyman 
Matthew Palcic 
Richard Perrit 
Ijrry Phillips 
Terry Phdham 
Raymond Quirling 
Doug Resenbeck 
Richard Richmond 
John W, Ross 
Dan Schein 
E J. Schmahl 
David Shi loh 
Darren J, Sptuyl 
Aubrey Stanley 
David Stidolph 
Richard Stringer 
Ariton Treuenfels 
Audrys Vilkas 
Jack Weaver 
Geoffrey Welch 
Evan Williams 



Production 

Attic Typesetting Ltd. 

Prinltng 

Printed in Canada by 
MacLean Hunter Printing 



Program Listings In Transactor 

All programs listed In Transactor will appear as they would on your screen in Upper/Lovirer case 
mode. To clarify two potential character mix-iips, zeroes will appear as '0' and the letter "o" will o\ 
course be in lower case. Secondly, the lower case L (T) is a straight line as opposed to the number 1 
which has an angled top. 

Many programs will contain reverse video characters that represent cursor movements, colours, or 
function keys. These will also be shown exactly as they would appear on your screen, but they're 
listed here lor reference. Also remember: CTRL-q within quotes is identical to a Cursor Down, et al. 

Occasionally prograrns will contain lines that show consecutive spaces. Often the number of spaces 
you insert will not be critical to correct operation of the program. When it is. the required number of 
spaces will be shown. For example; 



print ■ 



flush right " - would be shown as - print "[1 spaces]f1ush right ' 



Cursor Chflract ers For PET / CBM / VIC / 64 

liuert -| 
Delete -Q 
Clear Scm - Q 
Home -B 

STOP 



Down 

Up 

Right -■ 

Lrft - (LIlJ 

RVS - Bj 

RVSOfl- 



Cokfur Characters For VIC / 64 



BkBck - 
Whhe - 
Red - 
Cyan - [Cyn] 
Purple- iPur] 
Green - ■ 
Blue - ■ 
Yellow- [Yell 



Orange - 
Brown 

Ll. Red - 

Grcyl - 

Grey 2 - 

Lt. Green - 

Lt.Bhie - 

Grey3 - 



|Gr3j 



Function Keys For VIC / 64 



Fl 
F2 
F3 
F4 



F5- 
F6- 

F7- 
F8- 



Please Note; Transactor's 
phone number is; (416) 764-5273 
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Copy Copy Revisited 



Here are ,some excerpis from page 3 exactly one year ago: 

We ^ve beef} receiving a number of letters regarding foca! dupHcation 
of Transactor Disks. , 

Once again the question of duplicating Traasactor disks has been the topic 
for discussion around the office. It's amazing how a problem hits harder at 
home. Software piracy has been all around us for years and although you 
know it's affecting the industry, you can't imagine the impact until you 
become a victim. Recently weVe learned that many user groups and other 
"vendors" have been offering Transactor disks on a regular ba^s at 
substantially less than out retail price. 

WeVe not to trying to find fault or place blame. In fact, we probably have no 
one to blame but ourselves. Although our disk labels show a copyright 
notice, up until this issue we stated right on our policie^s page {page 2) that 
our prt^rams are ^'public domain; free to copy, not to selt". This notice goes 
back atx>ut 4 years - a popular phrase originally designed to prevent one's 
prc^ram from being "acquired'^ by someone in the software business. 
However, the fee at regular dub [iieetings to obtain a copy of any disk being 
offered thai night is carefully termed a ^'copying fee". Usually it's about 
$5.00. And 5 bucks isn't a lot ^ there's equipment wear and tear, lime, 
trouble and transportation, site rental perhaps, plus any number of ex- 
penses a club might have to dole out before making the first copy of the 
evening. Clubs can claim they're rtot "selling" Traasaclor disks, but that's 
only bending the original intent of our policy, which was to avoid the idea 
that we wanted to exert totalitarian authority over the personal possessbn 
of any machine-readabie program from Transactor magazine, 

. . .whal little profit we take doesn't even put a dint in our total 
expenses. 

So if our programs are public domain, what's the difference between our 
disks and any other club disk? Well, it was an error for us To use the term 
"public dorTiain" at all - our programs are cqiyrighl, as stated on every 
label of every disk we sell. The programs we publish aren^t just donated - 
we pay for the right to print an author's work, . . a total of almost $3000 
every issue. Beyond that, we invest hundreds of hours in producing every 
T disk master. We just can^t afford to release the disks to the public domain. 

Ail we ask is that you ^'de-unify" the disks into their respective 
cateipries. . . the unified collection will cost ^ss. 

Whfch is what we sell. Unfortunately, it appears that this policy loo has 
been somewhat more broadly interpreted than we intended. As you may 
know, the programs in the last 20 issues have been chosen fmm our 
submissions to fit a predetermined theme. Effectively, then, the main 
programs from any issue were already in a "respective category". The disks 
for these magazines always start witfi a few utility programs, followed by 
our short Bits, and then our main prc^ram listing. Separating just the main 
prc^rams onto another disk, with perhaps some other programs of the 
same nature, was essentially respecting our request. It's difficult to say 
whether the result was a sigEiificant loss in sales, but if so it was once again 
our own fault. 

. . .manufacturers need to o^r more in a package than just a 
program to accrue soles. 

Unlike a software firm that can protect against pirac>' by offering documen- 
tation and other services to registered users only, support for our pr(^rams 
is easily obtained just by dropping the subscription card in the mailbox. You 



even get updates! So, maybe our new disk labels will help. That's right, 
we've decided to take some of our own advice. In an attempt to protect 
against piracy (without prote<;ting the disks) we're going to offer something 
that can only be obtained from the manufacturer. Starting with the disk for 
this issue, all Transactor disks will be shipped with twcHZotour labels that 
should distinguish thern from any other disk in your collection. They'll be 
colour-coded to the cover of the con^sponding magazine, so if the logo is 
green, as on this issue, the disk label will also be green. You might say, "so 
whal". Well, another feature that I'm really looking forward to is having the 
entire directory printed right on the label! We've selected a label size that 
will accommodate the whole directory listing, and although the file names 
will be small, I intend to push this typesetting equipment to the limit to 
ensure their legibility. 

Back on the duplicatbn issue, we've composed a Site Licen^ng agreement 
for anyone wishing to make multiple duplicates of Transactor disks. Simply 
send us $3,00 for every cq>y made. Including this surcharge, club 
members will still pay less than our retal) price, club treasuries will still 
continue to benefit from the sales, and the clubs will still be able to offer the 
service value of on-the-spot availability. 

Wilt the member need to produce hts or her copy of the magazine before 
they're allowed their copy? No. But, they should be aware that unlike 
games or a menu driven application, most of the pnagrams we publish are 
of limited value without the documentation in the magazine. 

Remember. we wouldn ? be the first computer publication to become 
another page in Chapter 11. . . 

What will we do if the clubs and other offending parties don't comply? 
Probably nothing. But remember, if your dub or anyone else sells or allows 
copying of Transactor disks, they are competing against us with our own 
pn^ductl Although we^d rather be the only source, we'd much rather stay in 
business. Our Site Licensing agreement is a fair compromise that we hc^e 
will be adopted and upheld by interested parties. 

A package is going out within the next week to over 400 clubs an^und the 
world. The club addresses were obtained from the list published regularly 
in Commodore magazine, so if your club isn't on this list, please contact us. 
The pack^ cor^ains most of the above information, plus details of our 20/ 
20 deal. As described in News BRK, the 20/20 deal means 20% off for any 
onter of 20 subscriptbns, disks, or any other Transactor product- This is a 
natural for Commodore user groups, but you don't iieed to be a club 
member to take advantage of it. So post the notice on your kxal BBS - if 19 
others respond, the total savings are pretty respectable! The area school 
board office is another good place to spread this announcement. 

On a lighter note, what do you think of our new cover design? (Duke's in 
the Skypod), It isn't necessarily permanent - we^re just experimenting with 
i! while we're off the newsstand. Comments or suggestions, anyone? flow's 
the time to put in your two cents' worth. Oh yes, one more thing; one hw 
Bits book goes to the first long distance caller to say the word "shazam", 
and another to the 10th k>cal caller. 




Karl J.H. Hildon, Editor in Chief 
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Using "VERIFIZER" 



The Transactor's Foolproof Program Entry Method 



VERIFIZER should be run before typing in any long program from the 
pages of The Transaclor ll will lei you check your work line by line as 
you enter the program, and calch frustrating typing errors. The VERIFI- 
ZER concept works by displaying a two-letter code for each program 
line which you can check against the corresponding code in the 
program listing- 

There are five versions of VERIFIZER here; one for PET/CBMs, VIC or 
C64, Plus 4, C128, and B128. Enter the applicable program and RUN it. 
ff you get a data or checksum error, re-check the proi^ram and keep 
trying until ail goes weli. You should SAVE the program, since you'li 
want to use it every time you enter one of our programs. Once you've 
RUN the loader, remember to enter NEW to purge BASIC text space. 
Then turn VERIFIZER on with: 

SYS 634 to enable the PET/CBM version (off: SYS 637) 
SYS828 to enable the C64/VICversfon (off:SYS831) 
SYS 4096 to enable the Plus 4 version (off: SYS 4099) 
SYS 3072, 1 to enable the CI 28 version (off: SYS 3072,0) 
BANK 15: SYS 1024 for B128 (off: BANK 15: SYS 1027) 

Once VERIFIZER is on, every time you press RETURN on a program 
line a two-letler report code will appear on the top left of the screen in 
reverse field. Note that these letters are in uppercase and will appear as 
graphics characters unless you are in upper/ lowercase mode (press 
shift/Commodore on C64/VIC). 

Note: If a reporl code is missing (or "— ") it means weVe edited that 
line at the last minute which changes the report code. However, this 
will only happen occasionally and usually only on REM statements. 

With VERIFIZER on, just enler the program from the magazine nor- 
mally, checking each report code after you press RETURN on a line. If 
the code doesn't match up with the letters printed in the box beside the 
listing, you can re-check and correct the line, then try again. If you 
wish, you can LIST a range of lines, then type RETURN over each in 
succession while checking the report codes as they appear. Once the 
program has been properly entered, be sure to turn VERIFIZER off with 
the SYS indicated above before you do anything else. 

VERIFIZER will catch traasposition errors like POKE 52381 ,0 instead 
of POKE 53281,0. However, VERIFIZER uses a "weighted checksum 
technique" that can be fooled if you try hard enough; transposing two 
sets of 4 characters will produce the same report code but this should 
never happen short of deliberately {verifizer could have been desii^ned 
to be more complex, but the report codes would need to be longer, and 
using it would be more trouble than checking code manually), VERIFI- 
ZER ignores spaces, so you may add or omit spaces from the listed 
program at will (providing you don^t split up keywords!). Standard 
keyword abbreviations (like nE instead of next) will not affect the 
VERIFIZER report code. 

Technical info: VIC/C64 VERIFIZER resides in the cassette buffer, so 
if you're using a dataseiie be aware that tape operations can be 
dangerous to its health. As far as compatibility with other utilities goes, 
VERIFIZER shouldn't cause any problems since it works through the 
BASIC warm-start link and jumps to the original destination of the link 
after it's finished. When disabled, it restores the link to its original 
contents. 



CI 
CF 
LJ 
HC 
DH 
GK 
OG 
JO 
AF 
IN 
ON 
IB 
CK 
EB 
HE 
01 
JB 
PA 
HE 
EL 
LA 
Kl 
EB 
DM 
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PET/CBM VERIFIZER (BASIC 2.0 or 4.0) 

10 rem* data loader for ' 'verihzer4.0' ' * 

15 rem pet version 

20cs = 

30for 1-^634 to 754:read a poke i,a 

40cs = cs-f a;next i 

50: 

60 if csOl 5580 then print' '•**»« data error •*•••' ': end 

70 rem sys 634 

80 end 

100: 

1000 data 76, 138. 

1010data173, 164. 

1020 data 145, 201, 



2, 120, 173, 163. 2, 
2, 133, 145, 88. 96, 
2,240, 16, 141, 164. 



133, 144 
120 J 65 
2, 165 
144, 169 
165,217 

58, 173 
253,189 
230, 253 
236, 2 
229,165 
0,128 
105,193 

24, 101 



1030data144, 141. 163, 2, 169, 165, 133 
1040data 2,133.145, 88, 96, 85,228 
1050data201, 13.208, 62,165,167,208 
1060 data 254, 1, 133,251, 162, 0. 134 
1070 data 0, 2,168,201, 32,240, 15 
1080data 165,253, 41, 3,133,254, 32 
1090 data 198, 254, 16, 249, 232, 152, 208 
1100data251, 41, 15, 24,105,193,141 
in0data165,251, 74, 74, 74, 74, 24 
11 20 data 141, 1, 128, 108, 163, 2, 152 
1130data251, 133,251, 96 

VIC/C64 VERIFIZER 

10 rem* data loader for ' Verifizer' ' * 

15 rem vlc/64 version 

20cs = 

30 for I = 828 to 958:read a:poke i,a 

40cs = cs + a nexti 

50: 

60 if csOl 4755 then print' '**.** data error •****' ': end 

70 rem sys 828 

80 end 

100; 

1000 data 76, 74, 

1010data252, 141, 

1020 data 3,240, 

1030 data 251, 169, 

1040 data 3, 3, 

1050 data 0, 160, 

1060 data 32,240, 



2, 

3, 
2, 



3, 165,251, 141, 
3, 3, 96, 173, 
17, 133,252, 173, 
99,141, 2, 3, 169 
96,173,254, 1, 133 
0,189, 0, 2,240 
15,133, 91,200, 152 
1070data133, 90, 32,183, 3,198, 90 
1080data232, 208, 229, 56, 32,240,255 
1090data 32,210,255,169, 18, 32,210 
llOOdata 89, 41, 15, 24,105, 97, 32 
1110data165, 89, 74, 74, 74, 74, 24 
1120data 32,210,255,169,146, 32,210 
1130dala 32,240,255,108,251, 0,165 
11 40 data 101, 89, 133, 89, 96 



3, 165 
3,201 
3, 133 

3, 141 
89, 162 
22, 201 
41, 3 
16,249 
169, 19 



255, 
210, 
105, 
255, 
91, 



165 

255 

97 

24 

24 



ThoTransoctor 



VlC/64 Double Verifizer Steven Walley, Sunnymead, CA 

When using VERIFIZER^ with some TVs, tfie upper left corner of the 
screen is cut off, hiding the verifizer-displayed cotles. DOUBLE VERI- 
FIZER solves that problem by showing the two-letter verifizer code on 
both the first and second row of the TV screen. Just run the below 
program once the regular Verifizer is activated, 
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100forad = 679 to720:readda:pokead.da:nextad 

110sys679: print prinl 

120 print' double verifizer activated' ':new 

130data120J69, ISO, 141, 20, 3 

140data169, 2,141, 21. 3, 88 

150data96. 162. 0, 189, 0,216 

160dala157, 40,216,232,224. 2 

170 data 208, 245, 162, 0, 189, 

180 data 4,157, 40, 4,232,224 

190 data 2,208,245, 76, 49,234 



VERIFIZER For Tape Users 



Tom Potls, Rowley, MA 



N8 


30 


AL 


60 


IB 


70 





80 





100 



Nl 
PM 
EE 
NH 
Jl 
AP 
NP 
JC 
ID 
PL 
CA 
OD 
LP 
EK 



Dl 


1140data 20, 133.208, 


162, 0, 160, 0, 189 


LK 


11 50 data 0, 2,201, 


48,144, 7,201, 58 


GJ 


11 60 data 176. 3,232, 


208,242,189, 0, 2 


DN 


1170data240, 22,201, 


32,240, 15,133,210 


GJ 


1180 data 200. 152, 41, 


3,133,209, 32,113 


CB 


11 90 data 16, 198,209, 


16,249,232,208,229 


CB 


1200data165, 208, 41, 


15, 24, 105, 193, 141 


PE 


1210data 0, 12,165, 


208, 74, 74, 74, 74 


DO 


1220 data 24,105,193, 


141, 1, 12, 106,211 


BA 


1230 data 0, 165,210, 


24, 101,208,133,208 


BG 


1240 data 96 





The following modifications to the Verifizer loader will allow VIC and 64 
owners wilhj)atasetles to use the Verifizer directly (without Ihe loader). 
After running the new loader, you'll have a special copy of the Verifizer 
program which can be loaded from tape without disrupting the pro- 
gram in memory. Make the following additions and changes to the VIC/ 
64 VERIFIZER loader: 

fori = 850 to 980 read a: poke i,a 

ifcs<>14821 then print' '*****data error* **-*' ': end 

rem sys850 on, sys853 off 

delete line 

delete line 

OC lOOOdata 76, 96, 3,165,251,141, 2, 3,165 
MO 1030data251, 169, 121, 141, 2, 3, 169, 3, 141 
EG 1070data133, 90, 32,205, 3,198, 90, 16,249 
BD 2000 a$ = ' ' verifizer. sys860[space]' ' . 
KH 2010 fori = 850 to 980 
GL 2020a$ = a$ + chr$(peek(i)): next 
DC 2030open1,1,1,a$.close1 
IP 2040 end 

Now RUN, pressing PLAY and RECORD when prompted to do so (use a 
rewound tape for easy future access). To use the special Verifizer that 
has just been created, first load the program you wish to verify or 
review into your computer from either tape or disk. Next insert the tape 
created above and be sure that it is rewound. Then enter in direct 
mode; 0PEN1:CL0SE1. Press PLAY when prompted by the computer, 
and wail while the special Verifizer loads into the tape buffer. Once 
loaded, the screen will show FOUND VERIF1ZER.SYS850. To activate, 
enter SYS 850 {not the 828 as in the original program). To de-activate, 
use SYS 853. 

If you are going to use tape to SAVE a program, you must de-activate 
(SYS 853) since VERIFIZER moves some of the internal pointers used 
during a SAVE operation. Attempting a SAVE without turning off 
VERIFIZER first will usually result in a crash. If you wish to use 
VERIFIZER again after using the tape, you'll have to reload it with the 
0PEN1:CL0SEI commands. 



Plus 4 VERIFIZER 

1000 rem ' data loader for ' 'verifizer -h4' ' 

1010 rem • commodore plusy4 version 

1020 graphic 1: scnclr: graphic 0. rem make room tor code 

1030 cs = 

1040 forj = 4096 to 4216; read X. poke j,x: ch = ch-fx: next 

1050 if ch<>13146 then print' 'checksum error' ':stop 

1 060 print ' ^sys 4096; rem to enable' 

1 070 print ' 'sys 4099: rem to dtsable' 

1 080 end 

1090dala 76, 14, 16,165,211,141, 2. 3 

1100data165,212, 141, 3, 3, 96,173, 3 

11 10 data 3,201, 16,240, 17, 133,212, 173 

1120data 2, 3,133.211,169, 39,141, 2 

1130data 3,169, 16,141, 3, 3, 96,165 



PK 

AK 

JK 

NH 

OG 
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C128 VERIFIZER (40 column mode) 

1000 rem * data loader for ' 'verifizer c128' ' 
1010 rem * commodore c1 28 version 
1 020 rem * use in 40 column mode only! 
1 030 cs = 

1040 for] = 3072 to 321 4: read x: poke j,x ch = oh + x; next 
1050 if choi/aeo then print ' 'checksum error' ': stop 
1060 print ' 'sys 3072,1 ' rem to enable' ' 
1070 print ' 'sys 3072,0: rem to disable' ' 
1080 end 

1090data208, 11,165,253.141, 2. 3,165 
1100data254J41, 3, 3, 96,173, 3, 3 
1110data20l, 12,240, 17,133,254,173, 2 
1120 data 3,133,253,169, 38,141, 2, 3 
1130data169, 12,141, 3, 3, 96,165, 22 
1140 data 133, 250, 162, 0,160, 0,189, 
llSOdala 2,201, 48,144, 7,201, 58,176 
1 160 data 3, 232, 208, 242, 189, 0, 2, 240 
llZOdata 22,201, 32,240, 15,133,252,200 
1180data152, 41, 3,133,251, 32,135, 12 
1190data198,251, 16,249,232,208,229, 56 
1200dala 32,240,255,169, 19, 32,210,255 
1210 data 169, 18, 32,210,255,165,250, 41 
1220data 15, 24,105,193, 32,210,255,165 
1230data250, 74, 74, 74, 74, 24,105,193 
1240 data 32,210,255,169,146, 32,210,255 
1250dala 24, 32,240,255,108,253, 0,165 
1260data252. 24,101,250,133,250, 96 



B128 VERIFIZER 



Elizabeth Deal, Malvern, PA 



1 1 



k • 



1 remsave^ '@0:verifizerb128' ',8 

10 rem* data loader for ' 'verifizer b128' ' • 

20cs = 

30 bank 15.for 1 = 1024 to 11 63. read a. poke i,a 

40cs = cs + a;next i 

50 ifcs<>16828 then print' '•" dalaerror — ' *; end 

60 rem bank 15; sys 1024 

70 end 

lOOOdata 76, 14, 4,165,251,141,130, 2, 

1010 data 141, 131, 2, 96, 173, 130, 2,201, 

1020data 17, 133. 251, 173, 131, 2, 133,252, 

1030 data 141, 130, 2, 169, 4, 141, 131, 2, 

1040data 1, 72.162, 1,134, 1,202,165, 

1050 data 233, 32,118, 4,234,177,136,240, 

1060data 32,240, 15,133,235,232,138, 41, 

1070data234, 32,110, 4,198,234. 16,249, 

1080 data 230, 165, 233, 41, 15, 24,105,193, 

1090 data 208, 165, 233, 74, 74, 74, 74, 24, 

1100dala141, 1,208, 24,104,133, 1,108, 

1110data165,235, 24,101,233,133,233, 96, 

1120data164, 137, 133, 133, 132, 134, 32, 36, 

1130data 32, 78,141,165,133, 56,229,136, 

1140data170,l70,170,170 



165,252 

39, 240 

169, 39 

96, 165 

27, 133 

22, 201 

3,133 

200, 208 

141, 

105, 193 

251, 

165,136 

186, 24 

168, 96 
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Got an inieresting programming tip, short routine, or an unknown bit of 

Commodore trivia? Send it in - if we use it in the Bits column, we1f credit you in 

the coiumn and send you a free one-year's subscription to The Transactor 



Ribbon Rejuvenation 



Murray Kaiisher 
Santa Barbara, CA 



Most of today's popular dot matrix primers use easily- 
replaceable ribbon cartridges. These usually contain a long 
continuous loop of nylon ribbon folded and "crunched" inside a 
plastic cartridge. One short section of the ribbon is exposed to 
the dot matrix print head and the ribbon is moved in one 
direction continuously as printing occurs. If you remove a worn 
cartridge you may notice that usually only the upper half of the 
ribbon has been used. Certain types of cartridges allow in- 
creased ribbon life by ^'flipping" the ribbon internally so that 
both top and bottom halves are used. For cartridges where this 
is not the case, you can do it yourself without too much trouble, 
and double your ribbon life. 

First notice the direction in which the ribbon travels by turning 
the winding knob located at the top of the plastic case. Loosen 
the ribbon a bit by pulling on it and give it a half twist (o reverse 
the top and bottom edges. Place the twisted section of ribbon 
over the plastic guide closest to where the ribbon enters the 
cartridge and turn the knob to remove the slack in the ribbon. 
Now keep turning the knob to pull half of the "twist" into the 
cartridge Once it's inside you just keep turning the knob for 
perhaps 1 or 1 5 minutes until the twist comes out the other end 
of the cartridge and the ribbon is completely untwisted again. 
Now notice that the unused half of the ribbon is at the top edge. 
You now have essentially a "new" ribbon! 




Used V2 
Unused Va 



This trick will not work with carbon film type ribbons because 
the carbon will be on the wrong side of the film if you twist it. I 
tried this trick with the ribbon for my Citizen printer, which is a 
standard Epson MX-SO ribbon, and it works great! 



CAUnONt 



Dean Rouncville 
Athabasca, Alberta 



There is an easy way to destroy a BASIC program in memory, 
one that I found out in a most unpleasant manner. When 
entering a line in a long program, there is a short delay before 
the cursor comes back, while the interpreter re-chains the 
program line links. On very long programs, this delay can be 
several seconds long. U you interrupt this process by hitting 
RUNSTOP/ RESTORE before the cursor comes back, your pro- 
gram will be in quite a mess, as the rechaining process was not 
completed. Try LlSTing a program after a RESTORE in such a 
circumstance and you'll see. Sometimes you can get out of the 
mess just by re-typing the line you just entered; other times, 
repairing the damage could be considerably more difficult than 
that, 

I hope this warning will save someone the agony of losing two 
hours of programming time, as 1 did. 



Defaults 



Amir Michail 
Willowdale, Ontario 



The need to save default data for a program arises many times. 
To do it, one need not set up a sequential file to store the default 
data. Here is an elegant solution which provides 255 bytes of 
data storage (enough for 50 top scores in a game!). As a bonus, 
programs may be loaded and then saved on another disk - the 
defaults will automatically be saved with the program! 

First a little theory. When you load a program, the last track and 
sector used is stored at 24-25 ($ 1 8-$ 1 9) in the 1 54 L The idea is 
to retrieve this information from the drive for later use, and load 
in the default data from that sector. 
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Since that last sector has just been loaded, then one need not tell 
Ihe drive to read it again - all ttie information is there in the 
drive's buffer that was jusl used! However, the track and sector 
should be read from drive memory since the user may wish to 
change the default data later on. 

A demonstration program follows that clearly shows how this 
technique can be used. However, before you run it you must add 
a data block. First type in the program and save it as "demo"- 
Next type in the following in direct mode; 

Open5.8,5,"demo,p,a':forj = 1to254 
:print#5,chr$(j);:next:close5 

« 

h 

W 

Now load the program and run it! Warning: if you want to edit 
the program, remember to create another data block. 



LP 
GE 
CA 
EO 
GK 
PI 
GJ 
FE 
GA 
HJ 
DM 
FK 
GJ 

CC 
MD 
DO 
MG 

EE 
KB 
PA 
LD 
GP 
LO 
ED 
FJ 
AL 
KE 



10 rem* default demo — July 1987 

20 rem* by amir michail 

30 rem* saves and reads default values 

40 rem* from last block of program 

50: ■ 

100 z$ = chr$(0): open 15,8,15 

110open2,8,2;#" 

1 20 rem read values from disk buffer 

130print#15,"m-r"chr${24)chr$(0)chr$(2) 

140get#15,t$,s$:t = asc{t$ + z$):s = asc(s$ + z$) 

150print#15,'b-p";2;2 

170get#2,c1$.c2$.c3$ 

180poke53281,asc(c1$+z$):poke53280, 

asc(c2$ + z$):poke646,asc(c3$ + z$) 
195close2: close15 
210 print /change color defaults"; 
220 input k$;if k$ = ^n" then 320 
230 input "background, border, text colors:'; 

Cl,c2,c3 
240 poke53281 ,c1 : pGke53280,c2: poke646,c3 
250 open 15,8.15: open2,8,2,"#' 
260 rem write values to last sector 
270print#15;b~p";2;2 
2e0print#2,chr$(c1)chr${c2)chr$(G3); 
290print#15,"u2";2;0;t;s 
300 print "done!" 
310close2:close15 

320 print "program can start from this point." 
330 end 



Peek-a-Page 



Hardy Moore 
Bridgewater, MA 



One way to read a page from disk memory is to enclose a 
memory read and a get* wltfiin a loop and execute it 256 times. 
Here is a quicker approacli: 

lOopen 15,8,15 

20print#15,"m-r"chr$(lo)chr$(hi)chr$(0) 
30 for 1=0 to 255 
40get#15,b$ 



50 print i;asc(b$ + chr$(0)) 
60 next i 

Tfie first two parameters of the memory-read command specify 
the starting address in drive memory, and the third parameter is 
the number of bytes to read. Although zero seems like a curious 
value to use, it actually causes the drive to supply 256 bytes due 
to the counting algorithm used by DOS. 

Since the "m-r" command precedes the loop, there are 255 fewer 
commands to send across the serial bus and have the drive 
execute. 



FUe Hider 



Michael Bone 
Strathalbyn, South Australia 



Here's an easy way to hide hies so that they won't show up in a 
directory. This short program will hide every file in the directory 
starling from the one you specify. You can still load the 'Invisi- 
ble^' files, and you can load the first hidden file using the 
filename "??blocks free*". 

1 input "hide files from';a$ 
20open1,8,15 

30 phnt#i;r0:" + chr$(20} + chr${20)+ "blocks free" 

+ chr${0) + chr$(0) + chr$(0) + " = ' + a$ 
40 close 1 

To get the directory back to normal, just rename the file back 
again, like this: 

print#1 ,'rO:oldname = " + chr${20) + cfir$(20) 
+ "blocks free" + chr$(0) ^ chr$(0) + chr${0) 



Basic Bugs 

More on the VAL Bug 

In Volume 8 Issue 1, we reported on an "Obscure C-64 VAL 
bug'* and the problems il could cause with interrupt-d riven 
programs. In a nutshell, it happened like this: the VAL function 
would put a zero at the end of the string being evaluated, call a 
subroutine to evaluate the null-terminated string, then replace 
the zero with what was there originally. The bug was that an 
interrupt routine starting right above string storage would get 
stepped on if a VAL was performed on Ihe first string created in a 
BASIC program, and bomb out if it was executed while the VAL 
was being performed. 

Recently, Larry Phillips of Vancouver, BC, brought another 
manifestation of this bug to our attention, one that is easier to 
reproduce. For a dramatic demonstration, try entering this 
prc^ram: 

10 a$ = "4e99": print val{a$): rem this will disappear 
20 rem but this won't 
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RUN the program (you'll get (he message "overflow error in 
10"), then LIST it. You will notice that BASIC took the liberty of 
munching part of line 10, as predicted by the REM statement. 
Everything after the ■■4e99", including the closing quote, is 
wiped out. 

The reason lies in another, related, bug in VAL. If an error occurs 
in the evaluation of the string, like the overflow error in this 
case, the zero thai was stored at the end of the string is never 
replaced by the original contents of that location. Since a string 
defined in a BASIC program exists as a pointer to the program 
text itself, VAL is actually putting that zero right smack into your 
BASIC code! If VAL bombs, you've got a line-terminating zero 
sitting in your program to make things mysteriously disappear. 

This bug won't often be a problem, but it is interesting to note 
that a seemingly innocent-looking bit of code can be self- 
destructive. The same problem will not occur on a C128, 
because the string does not exist as a pointer to BASIC code, but 
is copied into siring storage in high memory along with the 
dynamically-defined strings. 



Multiply Bug 



Dave Dixon 
Vancouver, BC 



Here's another BASIC bug that shows up on Ihe 64, but is fixed 
on the 128. This one is in Ihe multiply routine. Try this: 

print 8388608.88*1 
print 1 » 8388608.88 

And see what you get. 



LIST During a Program 



Jason Dorie 
Ft, McMurray, Alberta 



As you may know, a LIST command in a program will end it 
right after the LIST is finished. This line takes care of that: 

10 poke 768,174: poke 769,167: list 
: poke 768,139: poke 769,227 

Line ranges may be specified with the LIST command as usual. 



Inside View 



Scott Gray 
New Bloomfield, MO 



Have you ever wondered what your computer might see from 
the other side of the screen? Well, this program will show you 
just thai - it displays Ihe screen just as if you were looking at it 
from behind. What's more, you can program and otherwise 
operate your 64 while enjoying this view; any BASIC program 
that does not use machine language subroutines or an alternate 
character set will work fine with Inside View, though it will be 
slowed down a bit. 



This program really has no practical value; it just serves lo 
demonstrate what weird and wonderful things the C64 is capa- 
ble oL 

It's easy to toggle between the normal screen and the reversed 
screen: 

normal : POKE 53272,21: POKE56576,151 
reverse : POKE 53272,37: POKE 56576,148 



Have fun! 
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inside view by scott gray 

ttie view that your computer 

sees from the other side of 

the screen 



1 rem «*****«»*»» + *»*»«*»:*»*»**t*ti»** 

2 rem • • 

3 rem • 

4 rem • 

5 rem *• 

6 rem * sees rrom rne nthflr '^irip ot • 

7 rem - ine screen * 

8 rem • • 

9 rem "******'*******»**** + «** + t*«*»* 

1 for X = 491 52 to 49466: read a 
20 poke x,a:c = c + a:next 

30 if C043135 then print 'errorl'istop 
40sys49152:end 

1000 data 169, 000, 141 , 014, 220, 133, 251 

1001 data133,253, 168, 169, 051,133, 001 
1002data169, 048, 133,252, 169,208,133 

1003 data 254, 177, 253, 132, 002, 133, 003 

1 004 data 1 60, 007, 006, 003, 1 02, 004, 136 

1005data016, 249, 165, 004, 164,002, 145 

1 006 data 251 , 200, 208, 232, 230, 252, 230 

1 007 data 254, 1 65, 254, 201 , 224, 208. 222 

1 008 data 1 69, 055, 1 33, 001 , 1 69, 001 . 1 41 

1009 data 01 4. 220, 120, 165,001,041,251 
1010data133, 001, 169,000,133,251, 133 

1011 data 253, 168, 169,048, 133,252, 169 

1012 data 208, 133,254, 177,251, 145,253 

1013 data 200, 208, 249, 230, 252, 230, 254 
1014data165.254, 201,224, 208,239, 165 
1015 dataOOl, 009, 004, 133,001,088, 169 
1016data148, 141,000, 221,169,037, 141 
1017data024, 208, 120, 169, 134, 141,020 
1018data003, 169, 192, 141,021,003,088 

1019 data 096, 169,004, 133,252,169,200 

1 020 data 1 33, 254, 1 69, 000, 1 33, 253, 133 

1021 data 251, 168,162,039,185,000,004 

1 022 data 1 57, 000, 200, 1 85, 040, 004, 1 57 

1 023 data 040, 200, 1 85, 080, 004, 1 57, 080 
1024data200,185, 120, 004, 157, 120,200 
1025data185, 160,004, 157, 160, 200, 185 

1026 data 200, 004, 157, 200, 200, 185, 240 

1 027 data 004. 1 57, 240, 200, 1 85, 024, 005 

1 028 data 1 57. 024, 201 , 1 85, 064, 005, 1 57 
1029data064.201,185, 104, 005, 157, 104 
1030data201. 185, 144,005, 157,144,201 

1031 data 185. 184,005, 157, 184,201, 185 

1032 data 224, 005, 157, 224, 201, 185, 008 

1033 data 006, 157, 008, 202, 185, 048, 006 
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CF 

DE 

EE 

LD 

CE 

OC 

BE 

ID 

JF 

LC 

AG 



1034 data 157, 

1035 data 088, 

1036 data 202, 

1037 data 185, 

1038 data 248, 

1039 data 007, 

1040 data 157, 

1041 data 112, 

1042 data 203. 

1043 data 200. 

1044 data 151, 



048,202, 185, 
202,185,128, 
185,168,006, 
208,006, 157, 
006,157,248, 
157,032,203, 
072,203,185, 
203,185,152, 
185, 192,007, 
202, 192,040, 
192,076,049, 



088,006,157 
006,157,128 
157,168,202 
208,202,185 
202,185,032 
165,072,007 
112,007,157 
007,157,152 
157.192,203 
240,003,076 
234,078,000 



MobUe BASIC 



Mark Schreiner 
Overland Park, KS 



Ttie short program below enables you to move the BASIC area 
anywhere in the Commodore 64 's memory. Answer the prompts 
with the starting and ending addresses of BASICs new location 
and the machine will appear to be reset but the ^^BVTES FREE^' 
message will reveal that you are in your new zone- 
Moving BASIC opens up some interesting possibilities. Try 828- 
1023 (the cassette buffer) and 49152-53247 (the free memory 
not contiguous with the normal BASIC workspace). You can now 
load in machine language programs and other files {using the 
■,8,r non- re locating load option} that load into the normal 
BASIC area. With BASIC moved, you may use a BASIC program 
to examine the contents of the normal BASIC area. 



You can use this program as-is by just SYSing to it from BASIC, 
or include the code in your own ML programs- Both BASIC 
loader and assembler code are listed below: 

1 rem* bytes free program * 

2 rem* by george borsuk * 
10 fori -491 52 to 491 72 

20 read a: poke i,a: ch = cfi + a 

30 next i 

40 if ch<>2624 then prinfdata error!!! ": stop 

50 print"** sys 491 52 will give bytes free" 

60data165, 55, 56,229, 45,170,165 

70 data 56,229, 46, 32,205,189,169 

80 data 96,160,228, 32, 30,171, 96 



The machine code: 



Ida $37 
sec 

sbc $2d 
tax 

Ida $38 
sbc $2e 
jsr $bdcd 
Ida #$60 
Idy #$e4 
jsr $ab1e 
rts 



;top of memory, low 

;subtract bottom, low 

;memtop high 

;subtract bottom high 

;print number in a,x 

;poJnt to string 

; at $e460 

;print message 

;return to BASIC or caller 



Make sure you save this program before running it - when you 
move BASIC, the program won't exist in the new area and you'll 
lose it. Just re-load the program in the new area if you want to 
re-locate again. 



10 for 1=0 to 18: read a: poke 828 + i. a; next 
20 inpufstart^bs; poke 831, int(bs/256) 
30 poke 829,bs-{int(bs/256)*256) 
40 inpufend";be: poke 839jnt(be/256) 
50 poke 837,be-{int{be/256)*256):sys828 
60 data 162, 0, 160, 0. 24, 32, 156, 255 
70 data 162, 0, 160, 0, 24, 32, 153, 255 
80 data 108,0, 160 



Getting The Boot 




Chris MUler 
Kitchener, Ontario 



Ever wish you could load in machine language or data files into 
your C64 without the danger of crashing out of BASIC with a 
FILE NOT FOUND error, or having your program re-run from 
the top after the load? Alt it takes is a couple of SYS calls and a 
poke! 

10 rem boot to load 3 programs from basic 

20 sn = 5781 2: rem set name 

30 Id =65493: rem kernal load 

40 a = 780 : rem .a register params 



Bytes Free 





50syssn"prog1",8,1 pokea,0:sysd 




60syssn"prog2',B,1 pokea,G:sysd 


George Borsuk 


70syssn"prog3",8,1 pokea,0:sysd 


Brantf ord, Ontario 


80 rem continue with basic 



Here's a short, relocatable machine language routine to display 
the number of BASIC bytes free. Unlike BASiC's FRE function, 
this routine always prints the number of byles free properly, as a 
positive number. It is based on a ROM routine that is executed as 
part of the power-up sequence. 

It subtracts the bottom-of-memory pointer at $2D (top of your 
program) from the top-of-memory pointer at $37, then uses the 
ROM routine at $BDCD to print the resulting value. Finally the 
"BASIC BYTES FREE" message stored at $E460 is printed by the 
print string routine at SABIE. 



The flow of BASIC is not disturbed by these loads and if an error 
occurs, you can handle it yourself without the program bomb- 
ing. Just check the disk error after each load with something 
like: 

open 15,8.15; input#15,a,b$,c,d: close 15 
: if a then print b$ (error) 

Use this technique for ". . . ,8,1 " loads only. 

You can also use this in direct mode to toad code or data without 
disturbing BASIC'S siart-of-variables pointer. 
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1 28 Bits 



Quick FUe Copier 



T,A. Sweeney 
Ridgef ield, CT 



Booting Up 
Your Mode Menu 



John Chism 
Knoxville, TN 



Puttering around the C128 Programmer's Reference Guide, I 
found some data on page 447 that, when entered into the boot 
sector (Track 1 sector 0) of a disk, purported to provide the user, 
upon booting, with a mode menu for: 

1)C64 BASIC 

2) CI 28 BASIC 

3) C128 MONITOR 

This is not quite so. The ML routine should begin on the 9th 
byte, not the 12th, and the loop waiting for input is not properly 
executed. 

The following program is a properly working version, and writes 
the code to the boot sector of a disk. But be forewarned that it 
should be installed on a fresh disk, or on one that you know 
doesn't have track 01 , sector 00 allocated. 

Just run this program on the fresh disk to install the boot menu, 
!n the future, whenever you boot with that disk in the drive, the 
above menu will come up and allow you to make a selection. 



BN 


100 rem* 


select on 


boot 












DO 


110 rem* 


fix for pg 


, 447of c128prg. guide 




HE 


120 rem* 


track 1 sector must not be allocated 


NO 


140 for i = 


= 1 to 100 


b 












OG 


1 50 read byt: 


cs = cs + byt: w$ = w$ + ctir$(byt) 


EK 


1 60 next 


















AP 


170jfcs<>6965thenpri 


nt 'data error": 


end 




M 


180 open 


15,8,15,' 


io- 












KA 


190 open 


8,8,8, ■#■ 














JA 


200prinl#15,- 


b-p"; 


8;0 












JP 


210prin1#8,w$ 














LC 


220print#15,' 


u2";8:0;1;0 


1 










LG 


230print#15,- 


b-a"; 


0;1;0 












DH 


240 print ds$. close 8: olose 1 5 








BP 


■ 250 data 


67, 


66, 


77, 


0, 


0, 


0, 


0, 





Nl 


260 data 


0, 


32, 


125,: 


255, 


13, 


83, 


69, 


76 


CL 


270 data 


69, 


67, 


84, 


32, 


77, 


79, 


68, 


69 


FH 


280 data 


58, 


13, 


13, 


32, 


49, 


46, 


32, 


67 


GH 


290 data 


54, 


52, 


32, 


32, 


66, 


65, 


83, 


73 


LH 


300 data 


67, 


13, 


32, 


50, 


46, 


32, 


67, 


49 


PI 


310 data 


50, 


56, 


32, 


66. 


65, 


83, 


73, 


67 


CH 


320 data 


13, 


32, 


51, 


46, 


32, 


67, 


49, 


50 


GN 


330 data 


56, 


32, 


77, 


79, 


78, 


73, 


84, 


79 


CF 


340 data 


82, 


13, 


13, 


0, 


32, 


228, 


255, 


201 


CP 


350 data 


49, 


208, 


3, 


76. 


77, 255, 


201, 


50 


MM 


360 data 208, 


3. 


76, 


3, 


64, 


201, 


51, 


208 


LP 


370 data 235, 


76, 


0, 


176 











Here's a short program to copy program files from one disk to 
another. It simply automates a RLOAD/BSAVE process, allowing 
program files to be copied at a high speed while maintaining 
their original load address. It was written in response to prob- 
lems I had with the file copy feature of the DOS shell. 



MN 

CH 

AL 

GC 

FM 

10 

AK 

PH 

IM 

KP 

IF 

FD 

NC 
DG 



lOOrem program file copier 128 tim sweeney 
110 poke 58,6 :rem reserve space in bank 1 
120clr 

130 prinfprg file copier" 

1 40 prinfinsert master disk, press key": getkey a$ 

1 50 inpuffile name";fi$: dclear 

160bload(fl$),p1 

170sa = peek(172} + peek(173)*256:rem gel 
starting address 

180ea = peek(174) + peek(175)*256:rem get 

ending address 
190 prinfinsert target disk, press key": getkey a$ 
200 dclear: bsave {fl$),b1 ,p{sa) to p{ea) 
21 prinfcopy compfeted. another? y"; 

:inpuf[3leftj";a$ 
220ffa$ = "y"then120 
230 poke 58,255: cir :rem restore bank 1 



FAST GULP 



Mt Garamszeghy 
Toronto, Ontario 



With a few simple modifications, the GULP.COPY program 
presented in Transactor Vol. 7. Issue OG (page 52) for the 1571 
and C-128 (1571 RAM disk copier), can be doubled in speed. 
The modifications described below allow the program to copy a 
single sided disk in just over four minutes and a double sided in 
about seven and a half. The modifications to the main BASIC 
listing on page 53 are as follows: 

1121 slow: open 9,8,9, '#3' 

1181 print#15,'u0"chr$(8)chr$(4) 

1261 print#15,"u0"chr$(8)chr$(4) 

1262 restore 2000 

1 263 of$ = ": for fx = 1 to 29: read of: of$ = of$ + chir$(of) 
; next 

1264print#15/m-w"chr$(0)chr$(6)chr$(29}of$ 
1 265 prjnt#1 5, ■m-e"chr$(0)chr$(6) 

1330prinlchr$(147): prlnt"'*done**": print#1 5, "uj": dolose 



2000 data 120, 169, 13, 141, 169, 
2010 data 141, 170, 2, 88, 96, 
2020 data 201, 160,208, 4, 69, 
2030 data 104, 76,222,157, 0, 



2,169, 6 

72,165, 

0J33, 
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The reasons for the changes are as follows: 

(1) line 1121 forces the C-128 into slow mode (because direct 
memory access will not work properly if the C-128 is in 
FAST mode) and reserves direct access disk buffer *3, 

(2) lines 1181 and 1261 use the burst mode "sel sector inter- 
leave" command to an optimum interleave of 4, This speeds 
up both disk reads and writes. 



instead of initializing BASIC, it will enter the built-in monitor. 
The interesting part is that zero page has been left virtually 
untouched, including the pointers to your BASIC program! Now 
enter X <RETURN> to exit the monitor, and Voila! Your BASIC 
program is there, right where you left it! This trick will not work 
if you lost your program to a NEW command, since the pointers 
have already been reset. In thiscase, a more traditional un-new 
technique must be employed. 



(3) lines 1262 to 1265 set up and execute a short program in the 
157rs buffer *3. Thisprogram turns off the verify after write 
featureby patching into the 157rs interrupt routine allowing 
much greafer write speeds. (Each time the 1571 writes a 
sector, it immediately reads it back in again to verify it. This 
causes a time delay of one disk revolution or about 0.3 

F 

seconds of wasted time for each sector written). 

(4) The print*^5/ui' in line 1330 replaces an "iO" in the older 
version. The "uj" will reset the default interrupt vectors in the 
1571 after the copying has finished. 

(5) lines 2000 to 2030 contain the object code for the 1571 
program. The source code is as follows: 



; disable interrupts 

;low byte of new interrupt routine 

;save in interrupt vector lo byte 

;newhr byte 

;and save also 

; restore interrupts 

;new interrupt handler 
;save accumulator 
;get job code for buffer#0 
;checkfor Verify sector" 
;no, then go back to normal 
;yes, then cancel it 
;and save again 

;retrieve accumulator, and 
;golo normal interrupt handler 



This short machine code program can be placed in any of the 
157rs buffers which are not currently used by DOS. Be careful 
when using it on your own because failure to reset the interrupt 
pointer to its default value after use will cause the 1571 to lock 
up or go hay wire if the new interrupt routine were to become 
corrupted by being overwritten by DOS- 



Common Memory 



Tim Fleehart 
Tum water, WA 



sei 




da 


#< write off 


sta 


$02a9 


Ida 


#>writeoff 


sta 


$02aa 


ci 




rts 




wriieoii = * 
pha 




da 


$00 


cmp#$aO 


bne continue 


eor 


$00 


sta 


$00 


continue = * 




pla 




jmp 


$9dde 



Built-in Crash 

Protection 



Mike Hartigan 
Lockport, NY 



A little-known and even less documented feature of the C 1 28 is 
a built-in way to recover from crashes without losing your BASiC 
program! if a prc^ram locks up, it can generally be saved by 
holding down the RUN/STOP key while simultaneously press- 
ing the reset button. This will cause the C128 to reset, but 



The C128's MMU (Memory Management Unit) has a register 
that controls the amount of ^'shared" or common memory 
present in both the 128 and Z80 modes. The common memory 
is always bank 0. This register is located at $FD506 and it works 
lilte this: 



Binary value 
of low nybble 


Shared memory configuration 


OOxx 
01 XX 
lOxx 
llxx 

xxOO 
xxOl 
xxlO 
xxll 


No shared memory 

Share low memory only 

Share high memory only 

Share in both high and low memory 

Share Ik bytes in each section 
Share 4k bytes in each section 
Share 8k bytes in each section 
Share 16k bytes in each section 



Example: storing $0F (%00001 1 1 1) in $FD506 results in 32k of 
shared memory; 1 6k from $0000 to $3FFF, and 1 6k from $C00O 
to $FFFF (excepting, of course, the configuration memory at 
$FF00-$FF04), 

The purpose of this common memory is to facilitate the stack 
and the common storage necessary for program ^house- 
keeping\ The 8502 requires common low memory for a stack 
and zero 
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Customizing 
CU Windows 



Bryce Nesbitt 
Berkely, CA 



When a new CLl is started from the Workbench, the window 
always comes up in the same, fixed location, if you do not like 
ttie position or size you are out of luck. From the CLl a bit more 
control is possible: a window specification such as ■CON:0/1/ 
640/200/Old CLl" can be typed after the NEWCU command. 
But that's a lot of typing and is useless for Workbench users. 
Changing the defaults allows both CLl and Workbench users to 
get that custom look without all the hassle. 

The modification is easy, with one exception: a binary file editor 
is not part of the software provided to users with their Amiga. 
The rest of this discussion will assume that you have already 
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downloaded, or otherwise oblained the program "filezapV The 
techniques described can also be applied to other editors. (The 
text editor 'Aedit' by Joe Bosiic, for example, allows editing of 
binary files,) 



Depending on which CLI startup file you wish to modify, use one 
of these commands lo start filezap: 

CLI > run filezap c:newcli 

Workbench > run filezap sys:system/cli 

Now page forward with the <F> command, keeping a sharp 
lookout for a string that looks something like ■CON:0/50/640/ 
so/New CLI", This defines the characteristics of the new CLI 
window: 

"CON:" means open a console window - leave this part alone. 
The first number is how many pixels from the left edge the 
window should start. The seconds number is how many pixels 
from the top. The third is the width in pixels, and the final one is 
the height- The "New CU" will be used as the title of the 
window. 

Use fiiezap's <»> command to change the defaults. Keep in 
mind that the window must fit on the screen, and that you can^l 
change the total length of the string! If you make a mistake, use 
the <R> command to recover. When ready, use the <U> 
command to update the file, and press <CTRLXC> to exit. 

Now your CLI window will come up where and how you like it! 



Titles 

in AmigaBasic 



John Chen 
Clifton, NJ 



It's difficuk to change the title of a window in AmigaBASIC after 
the window has been opened, and impossible to name the 
screen title. This program uses a system library routine to 
circumvent tiiis BASIC weakness. For the program to work, the 
"intuition.bmap" file has to be in the 'libs:' directory on the 
Workbench disk or in the same directory the program is stored 
in. You can get the ".bmap" file from the public domain or, if you 
have the "Amiga Enhancer kit" (the 1.2 system software up- 
grade), you can use the "ConvertFD' program on the Extras disk 
(in the "BasicDemos" directory) to roll your own bmaps from the 
files in the "FDl. 2- directory, 

LIBRARY 'intuition. library" 

W3& = WIND0W{7) ' pointer to a Window structure 

INPUT'WindowTitle";wt$ 

INPUrScreenTitle";st$ 

wt$-wt$-+-CHR${0) ' for no title set 

st$-st$-fCHR${0) 'string to chr$(0) 

CALLSetWindowTitles{ws&,3ADD(wt$),SADD(st$)) 

' SADD returns the address where the string is stored 

LIBRARY CLOSE 

END 



Easter Eggs 

WeVe seen computers before with secret messages hidden 
within their operating systems like Easter eggs; the original PET 
had Microsoft's "WAIT 6502,x" joke; the C-128 has its "SYS 
32800,123,45,6" incantation that puts up credits and a peacenik 
message. The Amiga lakes this trend one step further. 

First step: Move any windows out of the way that are covering up 
the Workbench screen's title bar, and click somewhere on the 
Workbench window to activate it. You should see the familiar 
"Workbench release. , , " message with the amount of free 
memory displayed in the title bar it is in the title bar that fhe 
secret messages will be displayed. 

Now, you'll have to hold down several keys at once for this: with 
the thumb of your left hand, hold down the left SHIFT and ALT 
keys simultaneously, and with the thumb of your right hand, 
hold down the right SHIFT and ALT keys. Now, with the middle 
finger of your left hand, hold down the Fl key - all five keys 
should be down at this point. Poof! With the flash of a "display 
beep", up comes a secret message in the title bar! Now release 
Fl and hold down F2 instead. You get a new message for each of 
the ten function keys. 

If you thought getting those messages was a bit tricky, you'll find 
that getting to the next stage of messages is like playing solitaire 
twister. First of all. make sure the Workbench window is acti- 
vated, the title bar is visible, and the Workbench disk is in the 
internal disk drive. Your mouse should be placed up against the 
right side of the keyboard, close lo the Amiga. Also, the mouse 
pointer on the screen must be resting over the screen-to-back 
re-ordering gadget in the Workbench screen title bar (the 
second gadget from the right). To get the mouse and pointer in 
these positions, you may have lo lift the mouse up and put il 
down where you want it. Now you are ready for stage two: first 
gel the Fl secret message displayed as explained above. Now, 
with all five keys still held down, reach out with the ring finger of 
your right hand and eject the Workbench disk from the drive. 
Poof! you will see another secret message appear in the title bar. 
Now don't move! You are ready for stage three. 

Stage three should only be attempted if there are no children 
present, and you are not offended by naughty words. While in 
the above position (the mouse pointer should still be over the 
screen-lo-back gadget), reach out lo the left mouse button with 
the little finger of your right hand and hold it down, being careful 
not to move the mouse. Now, get this: With the mouse button 
still held down, you have to re-insert the disk! Use your ring 
finger for this. After the disk "catches", poof! The naughty 
message! Wonder what they mean? 

This isn't a joke; it really works, but it can be tricky lo do. You 
may wai^ to enlist the aid of an assistant to get to stage three. 
Another way is to use the prograrh in this issue called "Eventma- 
ker" to do the work for you just by typing in a command. The 
command to get the secret message is given at the end of the 
article. 



The Transactor 



12 



November 1987: VMiime a, Ittue 03 




e 



T 



t 



e 




s 



Glossy paper pricing; [ love Ihe way you guys work. You start to 
use more expensive glossy paper rather than the thick non-gloss 
paper (that is a lot better than glossy], raising the expense for 
materials, then you raise your price for subscriptions, ( would think 
that the extra price for subscribing could go to something more 
useful than easiiy-ripped glossy paper (which I hatel). How about 
more articles and projeclSn How about more mail order products. If 
you really need more income, get more ads for non -Transactor 
products. Then lower your prices for subscriptions and mail order 
items. ■ 

I hope you will think more heavily about the above. 

Steven T Campbell, Mississauga, Ontario 

We don V iike increasing the price of a subscriplion any more than 
you like poying it, Steuen (which is why the price didn '! change for 
so long). And strangely enough, we aiso prefer the old paper, though 
not everyone agrees with us. Bui your assumption that the giossy 
paper is more expensive is incorrect - it 's actually about 1 5 per cent 
cheaper, which is one reason we changed it. Another reason is thai 
advertising copy looks belter on the coated slock - at least in the 
eyes of the advertisers. Your other points are well taken: we are 
going after more outside advertising, we will have more mall order 
products and. as the advertising starts to build, we also want to 
increase the number of pages per issue to accommodate more 
articles and projects. Meanwhile, though, we hove to stay in 
business. . . and we hope you'll stick around to watch us grow. 



One article that interested me in Ihe More Languages issue was 
"Blazin' Forth - Everything you wanted to know about Forth (but 
were afraid to ask)", I was thrilled to get the Forth system on the 
disk, but was disappointed to find no documentation on how lo use 
W. In the first paragraph of the article, the author stated: "I wrote the 
following as an aid lo people who might be trying to understand the 
source to Blazin' Forth, and it should be considered part of the 
documentation for the source files to the system." How can 1 get the 
documentation on how to use it and, if possible, the source files as 
well? 

David Neto, Toronto, Ontario 

Yours is one of a tmmber of inquiries we have received about more 
docs for Blazin ' Forth, David. Unfortunately, the source and docu- 
mentation for Scott Ballantyne's superb implementation of Forth are 
just too large to distribute ourselves. They are available, though, on 
the Commodore programming (CBMPRG) forum on CompuServe. If 
you have a CompuServe account (or if you were to get one) you 
could also put questions to Scott Ballanlyne on-line, if you desire, 
as he checks in on our forums fairly regularly. If you (or anyone for 
that matter) would like a free CompuServe Intro Pak. please call us. 
It contains an account number, a password, and $15 of on-line 
lime. 



Drive head noise abatement: In a letter in your September issue, 
Warren Pollans asked for solutions to the problem of head banging 
on the destination drive when using fast dual-drive copy program 
(LetlersA'olume 8, Issue 2). 



Blazin' Forth docs: Since discovering your magazine in March, I 
have found it to be an excellent source of technical information on 
Commodore's computers. I was so impressed by that first issue 
{More Languages) thai I got a disk and magazine subscription, and 
the companion disk to that issue. Unfortunately 1 missed the 
Simulations and Modelling issue, but 1 haven't l>een disappointed 
since. 



I overcome this problem when using Fast Hack'em by pressing Fl , 
which changes the source from device 8 to device 9; then 1 call for a 
directory (by pressing 'D') with the source disk in device 9. The 
head does not bang during this operation, and the head position is 
now known, so copying can proceed without fear of damage to the 
head alignment. While on the subject of this particular program, 
using the dual file eopiers in Fast Hack'em (v3.99) seems to be 
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impossible between a 1571 (even in 1541 mode) and a 1541, 1/3 rpm syndrome: many people have too mucti invested to start 
Solutions, anyone? from scratch again. So what that LPs have better sonnd reprod 

Bruce Lloyd, Daptn, New South Wales tion? 



uc- 



The 68010 and commercial disks: The article on the 68010 
Amiga (The 32-bit Amiga, Volume 8, Issue 2) raised some concern. 
Most purchased software is loaded following Kickstart and has its 
own startup-sequeEice. As 1 understand it, if one goes for a conver- 
sion one is faced with modifying the start-up sequence of all owned 
software and copying DedGEL to all disks. Is there any way around 
this problem? 

!an Robertson, Belleville, Ontario 

Interesting point. Ian. No, we don 't know of any way to make 
DedGEL active at boot-up without altering the startup-sequence. 
Don^i go changing ail your disks, though. . . remember that only 
source of compalibifily problems when you instoli the 68010 is the 
comparativety rare MOVE SR,<£A> instruction. Chances are that 
most of the programs you use do not contain this instruction, so 
instatling DeciGEL won V be required anyway (the worst that wilt 
happen, bytheway is that you'll get a Software Error caused by the 
68010 detecting what, for it, is a privilege mode violation). Also, 
many commercial programs can in fact be lauded from either CU or 
Workbench without having to reboot^ so you can install DeciGEL 
before invoking them. Ifnecessary, copy the ASSIGN and EXECUTE 
commands to RAM: (or put your Workbench disk in your external 
drioe if you have one), put the commercial disk in the internal drive, 
and execute a script file like the following: 

assign sys: dtO; 
assigns: dfO;s 

assign libs: dfO:llbs 
assign 1: dfO:f 
assign devs; dfO:devs 
assign fonts: dfO:fonts 
assign c:dfO:c 

Now execute the startuf>-sequence on the program disk, and 
chances are the program will load successfully Failing that, you will 
have to change the program disk, but that should be required only 
rarely. 

Taking Amiga to task: You have been lamenting the supposition 
that the Amiga is not selling, I take this as figurative rather than 
literal, leaving the implication that the Amiga is not selling as well as 
it should, could, or has to to meet expectations. My question to you 
is this: how many units should, could, or do you expect the Amiga to 
sell to be considered "selling"? My next question is: how did you 
arrive at this numtjer and why? 

For all its technological gimcrackery, the Amiga has some serious 
shortcomings. First of all, it's new, and that's bad. The vast, 
untapped masses of computer peasants have had an opportunity to 
test-drive VIC 20s and Commodore 64s. From the sounds of it, there 
aren't too many peasants left out there in the marketplace. The 
general level of computer awareness in the population has gone up 
considerably since the heyday of the Coleco Adam, TI99 and Radio 
Shack CoCo. 

Secondly, the operating system is new, and worse, incompatible 
wilh (he majority of the installed systems, it^s the old 78 rpm vs 33 



Thirdly, the Amiga is not an open architecture system. It's amazing 
what you can do wilh an Apple or PC and the right add-on cards. 
Years from now, those systems will be upgraded to virtually match 
the latest technology. To upgrade the Amiga becomes an expensive 
kludge. Sure, the new Amiga 2000 may correct that, but your lament 
didn^l cover the new machines, did it? 

And finally, the Amiga Is not cheap. Let's not compare it to IBM, 
though. So few people are buying real IBMs (mostly new cione 
manufaclurers, 1 bet) that even IBM became concerned enough to 
try and market something different. What about the technofreaks? 
Most of them buy Ataris, which are much more reasonably priced, 
and then try to make them run like Amigas (Amigae?' 



There is a niche for the Amiga, but it's a very small and specialized 
one, very similar to the niche that was carved out for a short time by 
the Ohio Scientific Challengers. The niche consists of the most 
eccentric technofreaks who also happen to have lots of discretion- 
ary spending power. Commodore created that niche, and empha- 
sized it with their Andy Warhol/Blondie introduction to the world. 
Unless the price comes down, or the available software increases 
tremendously, the Amiga may die in that niche, just like the OSl 
CIP. 

It's tantalizing to think what Jack Tramiel could have done with the 
Amiga if his brand of marketing had been followed. Instead, we end 
up with arguably the most powerful micro on the market today 
being widely seen as having no natural place. It reminds me of the 
Cord, which was too advanced for its time, or the Titanic, which 
succumbed to its own phantasy. 

Are the consumers wrong for not buying it? Are the developers 
wrong for not churning out software? Or are our own expectations 
wrong? I suspect the latter. 

By the way, 1 don't own an Amiga, simply because I can't afford one. 

My Commodore 64 will just have to do for a while longer. My OSl 

CIP is beyond resuscitation, and available to anyone with a good 
story, 

John Kula, Victoria, British Columbia 

Well, there 's enough opinions in that letter to fuel half a dozen long 
conversations, John, but for now well have to make do with some 
quickie responses to the points you raise. Here we go. one by one. . . 

Newness: it's hard to design a new computer that doesn't suffer 
from this ^'defect". The fact that the market is more aware nowa- 
days than it once was should help the Amiga, not hurt it - one of the 
problems we see is that its hard to appreciate its unique strengths 
until you 've been around other computers for a while. 

Operating system: yes, it's incompatible with everything, though 
Commodore has gone to a lot of trouble to moke IBM compatibility 
available to those who want it. But there is no progress without 
change, even if it takes a while, and the switch from 78 to 33 1/3 
didn't take all that long. Do you have a lot of 78s in your record 
collection? 
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A rchiiecture: we just plain disagree on this one. Though there ore 
some, problems with the expansion interface on the Amiga WOO, 
they con be and are being ooercome by dozens of hardware 
manufacturers. Commodore has been very forthcoming with tlie 
expansion specifications (one of the problems has been thai the 
specs have continued to evolve after the release of the machine) and 
other data relating to the Amiga's internal operation; this is in 
contrast with the history of the Macintosh, which truly is a closed- 
architecture computer 

Cheap: okay, it*s not that cheap. If you want some perspective, 
though, look at the early pricing of the Commodore 64, which came 
pretty close to the current pricing of the Amiga 1000. By the way, 
trying to moke an Atari ST run like an Amiga is going to be a 
frustrating experience for anyone who tries it. . . sort of like trying to 
make your pop-up toaster run like a microwave oven. 

Niche: We 'It have to wait on a final answer for this one, but Amiga is 
already establishing itself well with arlistSy video professionals, 
musicians and engineers. Top-flight productivity software has been 
emerging for a while now. so we should start to see it making 
inroads into traditional business circles, especially with the recent 
release of the Amiga 2000. Whether the Amiga will make it as a 
'home computef remains to he seen; we still believe that depends a 
lot on how well Commodore gets across the poirtt about multitask- 
ing, which is for us maybe the biggest thing the machine has going 
for it. 

As for your original question about numbers, it remains to be seen 
how far the Amiga can go. What's certain is that it has not been well 
marketed, and hence is not well understood by a lot of potential 
buyers. When that changes (and indications are that it may change 

soon). I guess we 'II quit griping. 

Mysterious quote mode explained: In a recent Transactor there 
was a Bit about how a value greater than 1 27 in location 646 ($0286) 
of the ConiiTiodore 64 affects the delete key in quote mode (Bits, 
Volume 8, Issue 1). This discovery intrigued me, and so 1 started 
looking around to see what really happens. 

The delete routine contains this code: 

e777 Ida $0286 
e77asta {$f3),y 
e77c bpl $e7cb 

. , ,and it is followed by this code from the routines that handle the 
CTRL characters: 

e77Gldx $d4 

e780 beq $e785 

e782jmp $e697 

. . .we follow the jmp, and find: 

r 

e697ora #$80 

, , ,lhen a few bytes later 

e6a2 jsr $ea13 

This last instruction is a call to the routine that prints the character 
currently in the accumulator. 



It appears that the programmers assumed the value in 646 would 
always be less than 128, which should be the case considering the 
C64 only has 1 6 colours. Poking a value greater than 1 27 causes the 
branch a! $e77c to fail, and the routine falls through into code that is 
intended to handle the printing of control characters. The delete 
occurs, and the cursor gets bumped back, then the character gels 
printed, which explains how the previous character gets corrupted. 
After printing the new character, the cursor is back where it started 
before the delete. The black hole effect is caused because the cursor 
gets moved back. Notice how the character printed reflects the 
value of 646. 

Nickey MacDonald, Fredericton, New Brunswick 

Thanks for the detective work, Nickey. Now if only someone could 
come up with a use for this 'mode'. . . 

Guru mail department: Jim Butterfield has passed on to us the 
following letter from reader Joel Rubin, who offers the following 
comments on Jim 's article on secondary addresses and the Kernol 
(Secondary Address Bits, Volume 8, Issue I): 

1) The Kernal OPEN routine ORA's the secondary address with 
*$60, at lea,st on the C64 and C128(SFEFD on the 128). so: 

lda#2. Idx#8'ldy#$f:jsrsetlfs 
. . .is okay. 

2) Since registers, unlike Basic file parameters, have no default 
value: 

]da#3:ldx#4:jsrseti!s 

. . .may well end up opening the printer the wrong way [e.g. if .y 
contained 7 going into the routine). 

3) You do seem to need ORA *$60 if you use Kernal TALK. LISTEN 
etal, 

Joel Rubin, San Francisco, CaliforEiia 

7b which Jim responds: 

Right on all three counts. To give more detail: 

1) Earlier Commodore machines did not insert the extra secondary 
bits when you called OPEN (SFFCO). Thus, to set a secondary 
address 15, you hod to LDY *^6F before your call to SETLFS; a 
value of "SOF wouldn't work. I write code for o wide oariety of 
Commodore machines. . . and since it's as easy to 'write in' those 
extra bits, I do so and save myself the trouble of needing to recode 
when f take it to another machine. On the newer machines (VIC 20 
andsubsequent), you can let the OPEN routine do the job for you. . . 
although it 's no extra work to add the bits in your coding, and might 
help you remember that they are always a necessary part of the 
working SA. 

2) Agreed. As I suggest, if you don 't want a secondary address you 
should still supply a value of 255 to signal 'no SA '. 

3) Direct calls to TALK/LISTEN definitely need those bits, as you 
say; the system assumes that the SA was set up with the extra S60. 
Most users won 't need to call TALK/LISTEN. . , they will do less 
work by using CMKIN (SFFC6, switch input path) or CHKOUT 
(SFFC9. switch output path); then GET ($FFE4, get a character) or 
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CHROUT ($FFD2, send a character): and finally CLRCHN (SFTTQ 
restore input and output default paths). 

Jim Butferheld, Toronto, Ontario 

More Plus/4 Tech Info: There is anolher source of technical 
information for reader Jim Welch, who was looking for a Pius/4 
circuit diagram {Letters, Volume S, Issue 1), 

SAMS Computerfact has complete technical data and schematic 
diagrams available for the Plus/4. If ihey are not available in his 
area, they can be ordered from; Tenex Computer Express, RO. Box 
6578, South Bend, Indiana 46660. The product number is 33551, 
and the price is $1 7.95 (US) plus $3.75 shipping and handling. 

If anyone has a machine language screen dump program for the 
Plus/4 that would work in monitor mode or in regular mode, I 
would like lo obtain one. Thank you. 

R Wendl, Dodson, Louisiana 



tRanzbloopeRs 

The Bliinderful Mr. Ed: If you typed in Chris Miller's nifty texT 
editor. Mr. Ed, from Volume 8, Issue 2, may have been disconcerted 
to discover that the Verifizer code for line 5530 did not match the 
one printed in the magazine. The line in question is; 

5530 jsr left ;dfm 

The Verifizer code given in the magazine was GE, but it should be 
OK. No, it shouidn^t be okay, it should be 'OK". How did the wrong 
Verifizer code get into the listing, you ask? We'd sure like lo know. 

Long Symass Labels: We don't know how many people have 
already noticed this, but it seems that all versions of Symass 
released so far will not properly handle labels over 8 characters long 
(what should happen is that longer labels will be accepted, but only 
the first 8 characters are significant). This will be fixed in the 
upcomir^g new version of Symass. . . meanwhile, be terse. 

Space or Null String: Relieve it or not, the typesetting equipment 
we use has no character equivalent to the quote (") seen so often in 
nearly every program listing. Until recently, the quote had to be 
simulated by rotating an inch mark f) counter-clockwise 24 de- 
grees. But for some reason, the typesetter rotate command crashes 
the preview screen that all articles are sent to before actually 
typesetting them. This was resolved by using yet another kludge. 
The typesetting computer allows variables just like CBM Basic. All 
quotes were substituted with a variable, and while previewing the 
variable was set lo the character pair ^ ', Then, when the article was 
ready to be typeset, the variable would be re-set to the rotated inch 
mark. Often this final step was neglected which is why some listings 
appeared with quoles as " instead of "., 

When Attic acquired the CQI^lPJTEfi font, we found another solution. 
This font has a quote symbol, but it looks like this: ", Yechhl 
However, in superscripted mode it looks great (") - and it doesn't 
crash the preview! Except for one last problem. When there's two 
side-by-side (ie. null string) it can appear to some as one space 
within quotes. Although it can usually be determined by deduction. 



we feel it may have been the source of some program entry trouble, 
especially since the Verifizer was designed to ignore spaces. Natu- 
rally we have a solution for this too; from now on the space between 
two quotes side-by-side will be "lightened up" so there can be no 
question that it means "null string". We hope that pR)blems with 
quote marks (which would have been five years old this October) 
will be eliminated forever 

Now if we could just get CompuGraphics to create a decent looking 
uni-width font for program listings. 

A Tew TransBask bugs: In Letters this issue, we quote from a 
letter by Nickey McDonald of Fredericlon, New Brunswick, who 
gave us the result of his inoestigotions into the "undocumented C64 
editing mode " lately reported in Bits. Mere we quote him again: 

I have typed every TransBasic module and seem to have them all 
working, but I found a few bugs along the way. First is some trivia, 
but I wondered if anyone else ever noticed: the heading TransBasic 
Parts I to 8 Summary" never changed after instalment number 8, 1 
miss TransBasic, and so started to make my own modules and even 
to convert other peoples' routines to TransBasic format. 

Second Ls a problem with the TransBasic USE command. Line 7192 
should read: 

7192 jsr errpgm 

. . ,and not "jsr errmem" as published. Line 7242 in the same 
module causes a problem if you specify a device number. This is 
because the line following "Idx device' is a three-byte operation. To 
fix this problem, it is a simple matter of changing two lines: 

7242 jmp uz4p5 

7246uz4p5 stx t2 

Third is the Labelled Goto module. The author did not store the 
destination line number when calling a line, so if an error should 
occur in the called line, the error handler reports the wrong line 
number. I made the following modification: 

6036 lgot7 Idy #2: Ida {$6f),y: sta $39 
: iny: Ida ($5f),y: sta $3a: Ida $5f 

Capacitance Meter Line Numbers: This one goes quite a white 
bock, to the orticie The Commodore 64 Capacitance Meter, by Jim 
Barbarello of EngUshtown, New Jersey (Transactor. Volume 7. Issue 
4). Back in December Jim sent us a correction, which we promptly 
misplaced. . . only to have it turn up again the other day. Here 's an 
extract from Jim 's letter, with our apologies for the delay: 

Some letters I have received indicate a problem following the 
"Optimizing Performance" instructions (page 32). It seems that 
modifying line HO has no effect. 

Upon review of the article, 1 noticed you renumbered the program, 
but did not change the line reference in "Optimizing Performance"! 
Please print a correction indicating that the two references to line 
1 10 should have been to line 200. 

First- Aid for Programmer's Aid: From the same pile of corre- 
spondence that yielded Jim Borbaretlo^s correction oboue comes this 
from James G. Rae of Cfiillicothe, Ohio. Referring to the article 
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Programmer's Aid for the Commodore 128 by Joseph Caffrey 
(Transacfor, Volume 7 Issue 5), James writes: 

The program has Ihree known problems. The first, reverse printing 
of the first character on the line in the 40 column mode only looks 
bad and causes no real problems. 

The second occurs when a program Tine uses more than one screen 
line and one of the additional screen lines starts with a number 
(SYS, GOTO, etc) thai matches an existing line number. The 
scrolling routine will read this as the last line number listed and 
continue listing from the next line number. This is a major problem 
in the 40 column mode, but can be lived with in the 80 column 
mode by limiting all lines to one screen Nne. 

The third problem is a computer lockup when scrolling up past the 
first line in the program if there is anything appended to the 
program between the end of the program and the end of basic 
pointer. When this occurs, the technique of assuming the end of 
program link is at the end of Basic minus two is incorrect, and 
causes the "rstlink;" routine to go into an endless loop. 

I have rewrilteEi the "foundup" routine to eliminate this problem by 
executing it twice at the first to last line transition. The first time it 
looks for the pointer pointing to the last line link, while the second 
lime it looks for the link pointing to this link. 

The revised assembler code below is 9 bytes shorter than the 
original, so the revised code can simply be inserted in the original. 

Note; the following Basic program line will set AD as the address of 
the byte following the last line link. This can be compared with the 
end of Basic to determine if any bytes have been appended to the 
program: 

63999 ad = peek(46lO) + 256*peek*4611) + 35: return 
Here is my version of the "foundup" routine: 



foundiip jsr putback 




jsr huntline 




bcc upout 




jsr scrldwn 




Idx linkpntr 




Ida linkpntr + 




cmpsob+! 




bne find 




cpx sob 


■ 


bne find 




jsr scroldwn 




jsr scroldwn 




Ida -^O 




tax 




jsr in it 




Idx linkpntr 




Ida linkpntr -1- 


find 


jsr in it 




jmp setup! 


in it 


stx old link 




sta oldlink + 1 
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;Moved next stx to start of init 
1 ;Moved next sta to start of init 
;Branch if last line listed was 
;not the first line in the program 



;lnsert two blank lines 
;Set Oldlink at $0000 

^ 

;Find the address of link 
;pointerto$OOOOand 
1 ;put into Oldlink 
;Find address of link pointing 
;to Oldlink and then jmp to the 
;line Lister routine 

;Relocated stx and sta opcodes 



Idx sob ;Start search at Start of Basic 

Ida sob+1 
rstlink stx linkpntr 

sta linkpntr +1 

jsr rdnwlnk ;Read value of next link (x,a) 

cmpoidlink+ 1 

bne rstlink ;Loop until linkpntr points 

cpx oldlink ;to Oldlink 

lis 



Xref64: Tm afraid there are two bugs in Xref64, but Ihankfuliy both 
are pretty easy to fix. So here goes- 
Change the third number on line 1530 from 217 to 214. 
Change the last number on line 1 770 from 1 6S to 76, 
Change the first two numbers on line 1 780 from 30 and 20ft to 198 
and 166. 

■ ^ 

Replace lines 3270-3310 with the following lines: 



3270 data 82, 65, 
3280 data 6 J 44. 
3290 data 208, 3, 
3300 data 0. 0, 
3310 data 0, 0, 



77, 13, 13, 0,165, 29, 201 
4,169, 5J33, 29, 165, 30 

76, 134, 161, 76, 145, 161 
0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0,162. 6.1, 160 







I'm sorry for any inconvenience these bugs may have caused, 
(I hate bugs!) 

Sincerely, David Archibald 

Editor^s Note: // there 's space, and there should be, we 11 put new 

versions of the CI 28 Programmer's Aid and Xref64 an Transactor 
Disk ^^20 for this issue. 



Division Revision: For the following correction we are indebted to 
Ross Churchman of Timnder Bay, Ontario, who writes: 

In the second part of the article "High Speed hiteger Mulliplies and 
Divides" (Transactor, Volume 8, Issue 1), there are several typing 
errors thai can be misleading if not noticed, as was the case the first 
time f read the article. All occur in the section on Division {page 43, 
second column). The line "Ml /M2 - R! rem R2" looks as if Ml is 
divided by M2, whereas M i is actually dividing into M2- This should 
have appeared as: 



Ml )M2 = R1 rernR2 

in Step 5 at the bottom of the same column, the line "CMP R2-M1 
(carry clear)'^ should have read ''CMP R2-M1 (carry attt)". At this 
step, R2 is equal to M\ in the example used, and subtracting with 
the carry set, as the ML code does, will leave the carry still set. 

There is one further mistake, in the ML coding of this division 
algorithm {page 45, second column). The fourth line, which reads 
"ROL M2 + 1" should have read "ROL R2+ 1 ". This makes the code 
compatible with the earlier sfeps and description. 

As a computer hobbyist and teacher of community night courses in 
machine language and computer interfacing, I enjoy your magazine 
very much. Keep up the good work! 



17 



November 1987: Volume 8, Issue 03 



TeleColumn 



PunterNet 



By Geoffrey Welch, Toronto, Ontario 



Most Transactor readers will be familiar with the name Steve Punier. 
Since he wrote his first BBS (Bullelin Board System) program years 
ago, 'the Punter BBS program' has gained recognition as the most 
polished BBS prc^ram available for the Commodore 64. However, 
the one thing that Com mod ore- based BBSes lacked that was 
available for larger computers was the ability to ■network\ to have 
messages transferred from one BBS to another Although network- 
ing had been discussed several times before and methods of doing it 
had been thought of, no one had actually produced a working 
network. Steve Punter, seeing that the interest in networking fiad 
left the stages of theoretical discussion and was nearing the experi- 
mentation stage, worked out his own solution and put it into testing 
with six boards in the Toronto area starting in the fall of 1985. The 
system proved reliable and, in March of 1986, was made available to 
the general public. I was the first to sign up and have been operahng 
'Node 7' ever since. 

From the beginning, the system has been 'a hit'. As I type this, 89 
boards have registered to join the network - about a ttiird the 
number of BBS programs Punter has sold - and about 60 are active. 
PunterNet users can send mail from Halifax in the east to Hawaii in 
the west, south to Miami, and off-shore to Bermuda, in some cases 
for less than the cost of a stamp! Many of the active boards are in the 
Toronto area, and Toronto users lake advantage of this to participate 
actively on several boards while only having to sign on to one. 

The BBS program itself didn't look different. The first thing an 
unsuspecting user saw were messages from people whose first 
namesstartedwith a number and a slash. "1 /Steve Punter*' and '7/ 
Geoffrey Welsh" didn't exactly look like names a loving parent 
would give their children. . . those inspired enough to read bulletins 
knew, though, that this was simply how the BBS indicated that the 
message had come from another board. The number before the 
slash told you which 'node' the message came from so that, when 
you replied to the message, the BBS could make sure the message 
was routed through the correct board and arrive in the recipient's 
mailbox- 

For instance, if Steve Punter wanted to send me a message on my 
board, he would tell his board to send the message to '7/Geoffrey 
Welsh" and, after midnight that night, his board would call node 7 
(my board). When it got through, it transferred the message and the 
message would appear on my board as having come from " 1 /Steve 
Punter". Since our boards are within local (free) calling distance, the 
board will deliver the message the same night. Obviously this could 
prove expensive if the destination was long-distance, so the pro- 
gram offers the message sender two options for long-distance 
messages: regular and fast delivery. Regular delivery keeps mes- 
sages going to a given destinalion in a file until there are four 
messages going to the same place (so the cost of the call is 
distributed over the four messages) or until the message is four days 
old {to make sure that the message doesn't sit and wail forever 



before it's sent). If the message is important and must go through 
immediately, the sender can designate the message for fast delivery, 
which means that the board will not wait for the four messages or 
four days, but send it immediately. For this luxury, the sender pays 
double the normal cost of sending the message. 

That, of course, brings up the cost of sending the message to begin 
with. If your node is within local dialing distance of another, it 
doesn't cost anything to send a message to a user there, so SYSOPs 
(SYStem OPerators) usually let users send messages to local nodes 
free. But contacting most boards requires a long-distance call, and 
tfiat costs money. Fortunately, the network calls are all made while 
the telephone company offers the highest discounts. Still, the call 
costs money and the SYSOP must pass on that cost to his/her users, 
and the BBS program has a built-in accounting system to handle 
this. Only users with money in their account may send messages to 
long distance destinations, and the program automatically calcu- 
lates the cost of a message (based on the length of the message and 
a minimum charge) and deducts that from the user's account. The 
exact charges are completely up to the SYSOP, so they vary from 
board to board. 

Further savings are possible using 'pathways'. For instance, there 
are over a dozen network nodes in the Toronto area. Why should a 
California (or. for that matter, Hawaii) node call each of these 
separately, when they are all a free call away from each other? The 
pathway concept allows SYSOPs to route messages to nodes other 
than their actual destinations, so that all messages to the Toronto 
area can be sent in a phone call to one node, and the Toronto node 
would then distribute the messages to their destinations. Although 
this is most effective in Toronto, where a single call can distribute 
messages to nearly twenty boards, there are other areas where two 
or three nodes can call each other free of charge. Naturally, only 
boards with storage space to spare can handle the heavier loads that 
result from using them as pathways, but the concept works well. 

But how does any node (and its users) know what other nodes are 
on the network? This is accomplished by two hies - "NetUpdate" 
and "NODES'\ The first is a file containing the latest list of nodes 
and the information about them: their telephone number, their 
speed (300 or 1200 baud), if they are temporarily down, etc. The 
NetUpdate file is kept up to date by Steve Punter at PunterNet 
'headquarters' here in Toronto and is automatically fetched by any 
board that sends a message to node 1 (or, if the caller is using a 
pathway to get to node 1 , whenever it passes a message to the board 
it designated as the pathway to node 1 ). The second file, NODES, is 
just a bullehn that the board fetches along with the NetUpdate file IF 
the SYSOP has told it to do so. Users can see the NODES file by 
entering the bulletin section and typing NODES. 

Thanks to PunterNet, I keep in touch with a friend in Kitchener, 
Ontario, and people in Los Angeles, Milwaukee, Montreal, Allen- 
town, Vancouver, , , people I would never had heard of if it weren't 
for PunterNet. And it only costs me a couple of dollars a month! 
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A Switchable 
RS-232 Interface 



Mark Farris 
Tulsa, Oklahoma 



A do-it yourself '^VIClOllA adapter" for true RS-232 at the user port! 



1 recently had a chance lo purchase a surplus 1200 baud Hayes 
compatible raodem. These external modem cards were com- 
plete except for the power supply and, of course, the interface to 
connect it to the 64's user port. Building the interface is what 
made the difference between a "good dear' and paying full retail 
to upgrade from 300 baud, I was fortunate enough to have some 
of the necessary parts on hand, such as the user port connector 
and the capacitors, resistors and diodes. This saved about half 
the cost of buying all the parts for the project. 

Preliminaries 

In theory, adding an RS 232 port to the 64 would allow the 
connection of just about any device that provides an RS 232 
connector. In practice, there are software and hardware differ- 
ences that make this type of universal connection difficult. The 
following interface was designed lo work with a stand alone 
Hayes compatible modem, but as long as the software require- 
ments are understood, it should work with just about any DCE 
device, (See Martin Goebel's '^Universal RS-232 Cable" Vol 7. 
issue 4, for an explanation of DTE vs. DCE devices). 

The lines to and from the modem can be separated into 2 
groups: Data lines and Control lines. Data lines carry the actual 
data to and from the modem, and Control lines control that data 
flow. Another way to think of it is; data that pass via the Data 
lines go through the modem, down the phone line, to the 
destination computer and back again. There are 2 Data lines: 
Transmit Data (TxD) is an output from the computer and Receive 
Data (RxD) is an input to it. 

Control lines, on the other hand, go to and from the modem 
itself. These lines handshake between the modem and the 
computer, and allow the software to make decisions based on 
the presence of high or low signals at the user port. The 
Commodore 64 provides 7 control lines, 6 of which are standard 
RS-232 control lines: Request To Send (RTS), Data Terminal 
Ready (DTR), Ring Indicate (Ri). Carrier Detect (DCD), Clear To 
Send (CTS), and Data Set Ready (DSR). Most modems provide all 
6 of these control lines, but some modems also provide a Speed 
indicate (SI) line. Commodore didn't provide a SI line on the 64, 
but fortunately they did add an extra unassigned pin on the user 
port. This unassigned pin (J) can be used as the S! handshake, as 
well as any other control line. If pin J on the user port is to be 
used as a Speed Indicate line, the software would be responsible 
for that configuration. This brings up the question of software 
compatibility. 
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For some reason, not all commercial interfaces connect every 
control line available at the user port. One popular interface only 
connects 4 of the 7 control lines: CTS, RTS, DTR, and DSR. 
Those 4 lines are swilchabte, which makes for a more versatile 
interface, but the fact that the DCD, Rl, and SI lines are left out 
makes that interface incompatible with many types of software- 
Some Bulletin Board software ''looks'' at the Ring Indicate line 
for an incoming call. The Commodore VIC I Oil A interface does 
not connect the Rl line, making it incompatible with some of the 
most popular BBS software written for the 64. There is no 
standard method for accessing the control lines through soft- 
ware. Programmers can, and do. use different lines to accom- 
plish the same thing. The DSR pin tells the computer when the 
modem is turned on, and the DCD indicates the presence of a 
carrier. But the DCD line could be used in the place of both of 
these lines. After all, if there is carrier present, it goes without 
saying that the modem has power. There are also those pro- 
grams that are written under the assumption that a Commodore 
modem will be used. Programs wriuen for use with a 1670 will 
not always work properly with a Hayes compatible modem, 

A Better Way 

The problem of compatibility can be solved by building an 
interface capable of adapting to different software requirements. 
This is accomplished by connecting all control lines and making 
each one switchable. Digital signals are expressed as either 
being "high" or "low", with a high being in the +3 to +5 volt 
range and a low being close to volts or Ground, The user port 
works on this fl'TL) digital principle. The RS-232 standard as set 
by the EIA does not follow this TTL system. RS-232 devices can 
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send a wide range of voltages to and from each other. They are 
not limited to 5 volts, and quite often use a 1 2 voll level if there is 
some distance between them. Instead of using positive voltage 
as a ''high^\ RS-232 assigns a negative voltage as the high 
signal. 

The RS-232 standard dictates that signals between devices will 
be + Of - 1 5 volts with the positive voltage being a "low^'. Input 
and output voltage on this interface will be in the + /- 5 range. 

Negative voltage is considered a high in any RS-232 cable, but 
applying a negative voltage to the 64's user port can damage the 
computer. So, it's the interface's job to convert the RS-232 
signals to signals usable by the user port. Inputs to the user port 
from the modem's RS-232 connector must first go through a 
MC 1 48E) Quad Line Receiver IC. It changes the -5 volt (high) and 
+ 5 volt (low) signals to normal TTL levels. Outputs from the 
user port must go through a MC1488 Quad Line Driver (C. It 
takes the user port signals and converts them to RS-232 type 
signals. 

Control lines are not treated the same as Data lines by the 64. 
Data lines are configured as '^active low" on both the modem 
and computer That is, the line is ON when it is at volts 
{Ground level). 



Control lines are ^'active high" at the user port (line is ON when 
+ 5 volts is applied). Since the modem wants all lines to be 
"active low", the Control lines must go through an extra inver- 
sion. Most commercial interface designs use a 741) 4 Hex 
inverter IC to take care of this inversion, but there is a better 
way. To make the Control lines swilchable, they are connected 
through 2 74LS86 Quad XOR Gate IC's. Each Control line is 
connected to one of the 2 inputs on each gate. The other gate 
input is hooked through a DIP switch to ground, A lOK resistor is 
connected to + 5 volts in parallel with the switch so that the DIP 
switch selects either +5 volts or ground. The truth table for the 
XOR Gate IC shows that only an odd number of inputs produces 
a high output. This means that when the switch is open, there 
will be a high on one input. Any signal coming in on the control 
line will be inverted. Closing the switch lets the signal go 
through uninverted- The normal setting will be all switches 
open but, to sahsfy different software requirements, each line 
can be changed independently. 



Construction Tips 

Radio Shack's Digital IC experimenter's circuit board is ideal for 
this project. The user port connector solders directly to the "plug 
in" edge of the circuit board. It is not necessary to trim the circuit 
board to make it the same width as the user port connector. 
There are 2 separate supply busses on the circuit board. Connect 
Pin 2 on the user port to one of the supply busses. This will be 
the +5 volt (Vcc) supply to the ICs. Connect Pins 1 J 2, A, and N 
to the other supply buss. This makes the Vcc and Ground 
supplies easily accessible from anywhere on the board. It is then 
a simple matter of placing the IC's on the board with the supply 
busses running directly under each chip. Solder pins (1 4) and (7) 
on the IC's to the proper buss [except Ul). 



All JC's get their supply voltage from the +5 buss except the 
1488 Quad Line Driver. The 1488 requires a Vcc of at least +7 
VDC and a Vee of at least -2.5 VDC. This supply is taken from 
Pin 11 on the user port. Positive going cycles of the 9 VAC go 
through Dl, and are filtered by CI. This supplies pin 14 oi the 
1488 with Vcc, Negative cycles go through D2, are filtered by C2 
and supply pin 7 with Vee. C3 and D3 serve the purpose of 
equalizing both the positive and negative voltages from pin 1 1 
on the user port. Without the addition of the extra Diode and 
capacitor, the voltage on pin 14 of the 1488 iC would measure 
close to + 12 VDC and the voltage on pin 7 would be approxi- 
mately -I VDC, With the addition of the equalizing circuit, both 
sides should measure between +/- 10 to 12 VDC. This is well 
within the maximum of +/- 15 VDC allowed. 

After connecting the supply circuit to Ul, plug the circuit board 
into the user port and measure the voltage on pins 14 and 1 to 
verify that pin 14 is getting approximately +10 volts and pin I 
has -!0 volts. (Make sure the computer is OFF while plugging it 
in). Next, place the DIP switch on the board with one row of pins 
in the Ground buss. Connect the other end of each individual 
switch to the proper pins on the 74L S86. Now the lOK resistors 
can be connected from the +5 volt buss to the pins on the 
74LS86 IC. Connect one of the ribbon cable wires to the correct 
pin on the DB25 connector. Go ahead and connect the wire all 
the way from the DB2S connector to the user port, through the 
74LS86 when necessary thus hnishing each line one at a time. 

Go slow and follow the schematic. A different colored wire for 
each line would make tracing the circuit easier later on, so 
rainbow colored ribbon cable would come in handy here- 
After all Control and Data lines are hooked up, solder the .1 mf 
capacitors from pin 14 to the ground buss on all IC's and from 
pin 1 to the ground buss on the 1488. Solder the 470 pf 
capacitors from pins 6, 8, and 1 1 on the 1 488 to the ground buss. 
Now solder all unused inputs on the 1488 and 1489 to the 
ground buss. This should complete construction of the interface. 

If everything is hooked up right, there should be 2 unused gates 
on U2, I unused gate on U5, and 1 unused switch on the 8 
switch DIP- The schematic shows one line out of U2 going to the 
unused gate on the 74LS86 hooked to the unused switch. This 
line can be kept as a spare if, for some reason, one of the other 
lines develops a problem. 



Final Thoughts 

Radio Shack part numbers are listed for some components. Just 
about any electronic parts supplier should have most parts stock 
including the 74LS86 XOR Gates. Ordering all parts by mail 
would probably be the least expensive way to go. Use only LS 
versions of the 7486 XOR gate IC. These use very little current 
and there is only an extra 100 mA available at the user port. If 
there is a software compatibility problem, experiment with the 
switch settings. Closing switches to the DCD, DTR, and CTS 
lines will emulate a 1670 modem with some software- 
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Parts List 



1 Experimenters circuit board (Digital IC) 276-1 54A 
1 1 2/24 . 1 56 t?dge card connector (user port) 
1 DB-25 connector (25 pin RS-232) 276-1547 
3 100 mf 35 volt eieclroiytic capacitors 
3 470 pf disk capacitors 
6 .1 mf disk capacitors 
8 lOK 1/4 watt resistors 
3 INOOl rectifier diodes 

1 1 488 Quad [jne Driver IC 276-2520 

2 1489 Quad Line Receiver ICs 276-252 1 
2 74LS86 2 input Quad XOR Gate ICs 

1 Miniature,8 rocker DIP switch 275-1301 
18-36 in. of ribbon cable (1 1 or more conductors) 
Several feet of 22 ga. or smaller hook up wire 
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Note: On 1488 and 14e9's 
GnDund all unused pins 
All Resistors are 10K V-iW 
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Bullet Proof 
Computers 



Evan WUliams 

Williams Lake, British Columbia 



, ■ .two enemies of modern electronics are high voltage and excess heat. . . 



II was a dark and stormy night. The clock struck twelve. Witti a 
brilliant flash and a dap of thunder, a 50 megavolt bolt of 
lightning struck the high ground wire on the power line three 
kiiomotersfrom the house. This induced a 2000 voit transient. In 
microseconds it appeared at the input to the power supply of the 
computer. The transformer reduced this to a mere 200 volts. 

Unfortunately, the voltage regulator device in the power supply 
had a maximum rating of only 35 volts. It died. So did a number 
of parts in the computer. . . 

The scenario above is avoidable. Two enemies of modern 
electronics are high voltage and excess heat. In most consumer 
electronic devices, especially those at the low end of the price 
scale, little or no protection against high voltage is present. High 
voltage transients will damage integrated circuits (IC's) resulting 
in prompt failure of the devices. 

U is also usual for a design to operate near and sometimes above 
the maximum temperature rating of the ICs. Excessive heat will 
cause eventual failure of an IC by increasing the mobility of 
dopant materials in the semiconduclor. This dopant migration 
changes the properties of transistor junctions until they slop 
working. The rate at which this happens is directly related to the 
operating temperature of the IC. This relationship is not linear 
and below a certain temperature the dopant atoms are mostly 
locked in place. If the IC is operated below this temperature it 
may be expected to function for many years. If it is operated 
much above this temperature it may fail in months or even 
weeks. 

Warnings and Disclaimers 

The following instructions for modifying your computer equip- 
ment include working on devices with 1 10 vok wiring, ALWAYS 
unplug all equipment, [f you have ANY DOUBT about your 
ability to work safely then find a friend who knows how. 

Modifying your computer may also void the warranty Although 
these changes will greatly reduce the risk of failure, it is impos- 
sible to protect against all possible insults to your equipment- 
Please read the entire article, particularly the section on static 
electricity, before performing any of the operations described 
here. 



The Power Source 

In North America, the standard Eine voltage supply is commonly 
referred to as 110 volt AC. In fact, the normal specification for 
household electric power is 1 07 volts to 1 25 volts AC. The actual 
voltage may be any value between these limits and will vary as 
the load changes. It is common for the voltage to go beyond 
these limits in industrial or rural areas. In general, low voltage is 
not harmful to computer equipment unless the Mtuation is 
extreme. The most noticeable effect may be a reduction in the 
display size on the computer monitor or TV. If a "brownout^' or 
extreme low voltage condition occurs, it is best to turn off all 
gear. Such brownouts can be followed by high voltage surges as 
major load shedding occurs to bring up system voltage. 

Sustained high voltage conditions where the voltage is only 
slightly above normal can cause overheating of the power 
supply and eventual failure. This situation cannot be easily 
prevented. To check your line voltage use a good quality ac 
voltmeter and check the voltage over a period of days, A meter 
with a peak hold function is most useful The author has 
measured line voltages as high as a steady 130 volts with the 
voltage usually around the 125 vok range. When the voltage is 
this high it can cause overheahng of Ihe power supply. If you find 
your line voltage is often above 125 volts you might try com- 
plaining to your local power company but don^t expect much in 
Ihe way of action. The first response will be to question the 
accuracy of your meter. Unfortunately, the only remedy for a 
constant overvoltage condition is to buy an expensive autotrans- 
former with enough wattage capability to handle all your gear. If 
an autotransformer is used, all equipment that is interfaced 
together must be operated from the transformer. If not, ground- 
ing problems may result. 

Electrical storms are a major danger in many areas. When 
lightning strikes the power line it can produce damaging tran- 
sients many kilometers away. If lightning strikes near the service 
connection severe damage to some or all equipment connected 
will probably result. No certain protection is possible in this 
instance other than unplugging ALL equipment. Note that 
simply turning off the power may not be enough since a close 
strike will produce voltages high enough to jump straight 
through switches. The author has worked on equipment where 
components have been vaporized right off the circuit board by a 
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nearby strike. If an electrical slorm is overhead or nearby, turn 
off and unplug your equipment. 

The more common situation Is when lightning strikes the power 
line somewhere in the same county. This may produce much 
smaller bu! still damaging transients. These can be handled by a 
device called a metal oxide varistor (MOV). The MOV presents a 
resistance to electrical current which is voltage dependent. 
When voltage across the MOV rises to the rated value, the 
resistance drops to a very low level, in effect becoming a short 
circuit. This prevents the voltage risini^ much higher and is 
called "claiT^ing^'. MOV^s can withstand very high currents for 
short periods of time. By placing a MOV across the hot and 
neutral wires of the power line, protection against transients is 
obtained- The power distribution system in the home should not 
be modified so the way to do this is to install a MOV in a power 
bar If you are using a power bar that indicates it has surge 
protection then it already has such a device. Do not confuse this 
with the required circuit breaker found on all power bars. The 
circuit breaker is there to protect the power bar from overload, 
not the equipment plugged in to it. 

If you have a power bar that can be disassembled, it is very 
simple to install a MOV. 



For complete protection against common mode transients as 
well as differential mode two more MOVs may be installed, one 
from the hot side to the ground lug and one from the neutral side 
to the ground lug. Tug lightly on the wires in the connector holes 
to ensure they are properly trapped. Tape the MOV to the 
receptacle with electrical tape. Reinstall the back cover of the 
power bar and you are done. 



Additional Considerations 

If you live in an area with underground power service do not 
assume your system is safe. The power distribution system 
always has some overhead connections that can be struck by 
lightning (ie, street lamps and traffic control devices}. 

If your computer is connected to a television for display purposes 
this presents another path for destructive energy, especially if 
the television uses an outside antenna. Yet another path exists if 
a modem is connected to the phone line and the computer. 

Again, the only sure protection during an electrical storm is to 
unplug all devices that could provide a path for destructive 
energy to your computer. 



Modifying a Power Bar 



The Computer Power Supply 



Unplug the power bar and all equipment. Remove the power bar 
back cover If the power bar uses ordinary receptacles i! will 
most likely be wired using push-in connectors on each recepta- 
cle. The end receptacle should have two free push-in connector 
positions (see figure 1). Bend the wires of the MOV (Radio Shack 
"276-570 or *276-568) to the correct spacing with right angle 
legs so that when pressed in to the connector holes the MOV will 
lie flat against the receptacle body. Install the MOV by pressing 
the wires into the holes. One wire should go into a hole on the 
hot side and one on the neutral side, It doesn't matter which wire 
goes where since a MOV is non-polar 
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Many home computers use an external power .supply. This is 
done for a variety of reasons. The most important reason is that 
using a separate supply limits the 1 1 volt ac power distribution 
to that area only. This makes testing and approval by organiza- 
tions like U.L. and C.S.A. quicker and easier, it also removes a 
major source of heat and bulk from the main computer case and 
allows more attractive design. Unfortunately, moving heat to 
another box does not eliminate it. 

Some Commodore power supplies are notorious for failing early, 
especially the C-64 units. It is essential that the power supply be 

placed in a cool, well ventilated area with no 
obstruction of air flow. It helps if the unit is 
raised by adding small feet to it or placing it 
on blocks. It should never be placed on a 
carpet or in a closed compartment- The best 
solution Is to place a small quiet fan so it 
moves air over the unit. If you have an early 
model C-64 power supply it may be of the 
repairable type. The author has such a unit 
and has drilled numerous 1/4 inch holes all 
over the case (after removing the internals!). 
This helps tremendously in keeping the unit 
cooL All later model C-'64 supplies are NOT 
(easily) repairable as the components are pot- 
ted in epoxy making the unit a solid brick. 
This does not help the cooling. The VIC-20 
supply runs cooler as ttie power demands are 
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less than the C-64, The C-128 power supply 
runs much cooler (better design) and should 
not present a problem. 

[f a problem appears with the C-64 supply it is 
advisable lo replace it with a second source 
unit such as the CPS-10 made by Estes and 
available from Jameco Electronics for US 
$39,95. This unit includes 110 volt ac outlets 
with spike protection. Also available from a 
number of sources are fan/outlet units with 
spike protection in the $30 to $40 price range. 



Heat and the Computer 
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Prom the UNIVAC to the 0-64 heat has been 
a problem. The ROM's in the authors PET 
200 1 ran so hot they could not be touched comfortably. This is a 
sure sign that an iC is too hot. A thermocouple measurement 
showed a temperature of 71 Celsius (160 F). The maximum safe 
operating temperature for most IC's is 70 degrees celsius (] 58 F). 
Some ICs in the C-64 and 1541 disk drive also run hot. The 
solution is to install heat-sinks on the IC's. The most suitable 
type are heat-sinks designed for TO-220 semiconductor de- 
vices. These are available at most electronics stores including 
Radio Shack {catalog number 276-1 363). 

Open the case of the computer or disk drive by removing the 
screws found in the underside. Carefully lift the lop half of the 
case off. Most C-64's will have a foil covered piece of cardboard 
over the circuit board. This is a RF shield. It is also a heat trap. In 
most cases the author has found little or no increase in TV or 
radio interference if this shield is removed. Early C-64's did not 
have this shield. It is not illegal to remove this shield but if your 
equipment causes interference and a complaint is made to the 
Department of CommunTcations you will have to correct the 
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problem. Removing the shield can degrade the picture if you are 
using a TV set as your monitor. Experiment by tearing the small 
copper tape at the rear and bending the entire shield towards the 
front of the computer. Place the keyboard loosely on top of the 
lower case with the shield sticking out the front and turn on the 
power. If no noticeable interference exists on your TV or radio 
then you are safe in ripping the shield out. Removing this shield 
will not harm your computer, but will void the warranty. 

Next, leave the computer running for half an hour. There are no 
dangerous voltages present in the computer Watch out for rings, 
metal shirt buttons, necklaces, chains or any other metal objects 
that might fall in the machine and short out power. Although not 
dangerous to the user it could fry your computer. After it is 
warmed up, open the lid and place your hnger on each large 
integrated circuit. Several IC's will be found that are quite warm. 
Also, the video circuits metal box (see figure 2} will be warm. To 
attach heat sinks to the IC^s and the video circuits box the author 
uses only silicone heat sink grease [Radio Shack part number 
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276-1372}. This is sticky enough if the computer is not moved 
much- Use just enough to cover an area on the IC equal (o the 
size of the heat sink. Place the heat sink on the IC and press into 
place (see figure 3), If the computer is moved around a lot use 
just enough grease to cover two thirds of the heat sink area on 
the IC. Cover the other third with contact cement and when 
tacky press the heat sink into place. The same procedure is used 
on the video box. The author used three heat sinks in a row for 
the video box. This overall procedure should also be carried out 
on the 1541 disk drive. Be careful to check for clearance of the 
heal sink fins with surrounding parts and the upper case. If 
interference exists the heat sink can be hacked, bent or chopped 
as needed. ' 

The C-128 has an all metal shield covering the entire circuit 
board closely. In this shield are cutout tabs that contact certain 
iC's below. On two of two C-1 28's examined the tabs were not 
contacting properly and did not have enough heat sink grease. 
The C-1 28 shield is fastened in place with a series of screws 
around the perimeter and some small bent metal tabs from the 
lower shield. By removing the screws and straightening the tabs 
the shield may be lifted off. The heat sink tabs should be 
reformed to ensure good contact with the IC's and a generous 
amount of heat sink grease applied. Reinstall the shield. Do not 
overtighten the screws holding it. Rebend the small metal tabs 
which provide contact with the lower shield and reinstall the 
case. 

• Never cover your computer gear with anything while it is 
operating; no magazines, no disk jackets or anything else. 

• Always leave some space for air circulation around the equip- 
ment. Do not stack disk drives unless a fan is used to cool 
them. 

• Operating the equipment in the direct sun is a good way to 
overheat it. Remember, the primary cause of component aging 
and eventual failure is excess heat. 

All of the author's computers and related accessories have been 
overhauled as above. Some of the systems operate 24 hours a 
day. Since 1978only two component failures have occurred and 
one was an early failure in the first month of ownership. The 
second was induced by zapping the joystick port on a C-64 with 
static electricity. 

Static Electricity 

Static electricity is a charge caused by friction. Walking across a 
plastic carpet on a dry winter day can build an amazing charge 
on your body. Touching any conductive object at a different 
potential can cause the charge to arc over. The insulating value 
of dry air is about 20,000 volts per centimeter. Anyone who lives 
in a dry climate has probably seen a spark at least this long 
jumping from their finger to another object. The maximum 
voltage that most IC's can withstand is about 25 volts or less. A 



static charge large enough to damage an IC can be so small that 
no evidence of it exists to the senses. Certain parts of all 
computers are easily damaged by the slightest touch when 
conditions are just right (wrong!). 

The C-64 has two very vulnerable joystick ports right next to the 
often used on/off switch. These ports use exposed mate pins on 
the computer side (arrrggghhh) so as to be compatible with Atari 
joysticks. Under no circumstances should these pins be touched. 
Worse yet, on the C-1 28 the reset switch is right next to the 
joystick ports. 

The solution is to remove static charges from the user. The 
simplest way is to touch something metal that is grounded to the 
same outlet as the computer before touching any part of the 
computer. This is not always practical and there is a better way. 
An expensive solution is to buy an anti-static mat to place the 
computer on. This is connected to the outlet ground with a wire 
and drains static charges painlessly when touched. The author 
uses a cheap but effective method. Buy a small roll of 3/ 1 6 inch 
tin plated copper tape from a stained glass supplier. Stick strips 
of this tape to the side of the computer surrounding the joystick 
ports so that anyone plugging in a joystick cannot avoid touch- 
ing the tape. Bring one end of the tape inside the case. Solder a 
one megohm resistor to the tape and with a piece of flexible wire 
solder the other end of the resistor to the ground trace on the 
main circuit board (see fig 2 for C-64). On the C-128, solder to 
the metal RF shield. Wrap the resistor with electrical tape or 
shrink tubing and close the case. The resistor is necessary to 

prevent a sudden surge of voltage. This modification costs very 
little and is effective with small children. 

When doing any work on electronic equipment is is advisable to 
wear cotton clothing that does not produce static charges. 
Always make sure that you touch something grounded before 
touching any components. Before soldering, touch the tip of the 
iron to ground or use a grounded iron. It is best to avoid 
disassembly at all if the air is really dry and static is zapping 
eve f y where - 



A Final Observation 

^ 

The author has always followed the practice of ''burning in" new 
electronic equipment. This means just setting the new unit up, 
turning it on and leaving it on 24 hours a day for at least a week. 
For some reason, this seems to prevent future failures. The 
author has no certain explanation for this but there are some 
effects such as *'oxide healing" that could explain it. It seems 
best not to subject the new gear to on/ off power surges until this 
burn-in is done. The author is a confirmed techno junkie and 
buys every new widget that comes along. All items are burned 
in. Over the years almost no failures have occurred from clocks 
to stereos to computers. This is a GOOD THING. The author 
repairs computerized devices for a living and would rather not 
do it at home as well. 
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The 1 58 1 Disk Drive: 
A technical evaluation 



M. Garamszeghy 
Toronto, Ontario 



. . Jhe 1581 supports subdirectories or, more correctly, disk 
partitioning, with each partition having its own BAM and directory. . . 



A few days before turning !he big 3-0, 1 received a birthday preseni 
in Ihe form of a lillle plain brown box from CoiriTTiodore, courtesy of 
Dan and Jim al Westchester- Inside, I discovered CBM's latest 
offering for its 8-bit line: the 1581 3'/s inch disk drive. (Although 
the label on the front of the drive specifically says "FLOPPY DISK 
DRIVE", I refuse to call a 3V2 inch disk "floppy", especially when 
my 1571 merely says "DISK DRIVE". For those not familiar with a 
micro disk, It is encased in a rigid plastic housing making it the least 
floppy of flexible disks.) 

This little beast is compact, quiet, fast, and versatile. It runs on the 
standard or fast serial port and is primarily designed for use with the 
Ci28, but works quite nicely with the C64, Plus/4, C16 and even 
the VIC 20. Early prototypes were reported to have problems 
dealing with the slow serial bus of these other machines, but these 
appear to have been corrected now. The external power supply 
allows the drive to run much cooler than the 1541 or 1571, It still 
runs a bit warm, but nothing like my dual purpose toaster-cum- 
1541 disk drive. The physical size of the 1581 is minuscule com- 
pared to the 1541/1571 type drive. 

The drive is small enough to rest nicely on the ledge behind the 
keyboard of my C-128. The only physical layout item which might 
be confusing to 1541/1571 owners is the location of the power 

switch. On the 5Vi inch drives, the switch is in the right rear corner. 
On the 1581, it is in the left rear corner. When you are used to 
fumbling around on one side to turn the drive on, switching sides 
isn^t fair On the 1581 this is readily overcome due to the small 
dimension. Just by putting your hand behind it, one finger is almost 
bound to be in contact with the switch, no matter where it is. 

The 31/2 inch disks are obviously also much smaller than the 5V4 
floppies. Smaller yes, but they also hold more than twice as much 
data as a double sided 1571 disk! The built-in rigid plastic cases of 
V/2 inch disks make them much easier to care for, transport without 
the box, send in the mail, etc. 

The quiet smooth operation of the 1581 is a]oy(not) to listen to. In 
fact, with the exception of a slight dick as the head steps between 
adjacent tracks or a low pitch squeal as it homes onto a distant track, 
you would hardly even know that the drive was running. Several 
times over the course of testing it, 1 thought that the 1581 had died 
on me only to discover a few seconds later that it was indeed alive 
and well and going about its normal business. 




Hardware Glitch on Early 1581s 

The first batch of 1581 drives have an error on the PC board 
that creates all sorts of problems, and can lead to the loss of 
data on disk. The problem is the lack of a ground connection 
on an IC: pin 10 of UIO [a 74LS93) should be connected to 
ground at pin 1 of U 1 (the 6502). If you are having problems 
with your 1581, make this connection yourself, or bring your 
drive to your dealer to have the fix made under warranty, U 1 
is marked on the PC board, and is located near the front of the 
drive, on the right side of the board. Commodore is aware of 
the problem, and has either fixed it already, or plans to fix it 
on future versions of the PC board. Our thanks to Hilaire 
Gagne of Laurentian Business Products for bringing this 
problem to our attention. 



plugged multi-conductor ribbon cable and a smaller dual- 
conductor cable. The main ribbon cable edge connector on the drive 
mechanism appears to be a standard type, perhaps a SASI. If this is 
the case, it might be possible to use the controller boand with its 
built-in DOS to interface to other ^'standard" type drives such as 80 
track 5'/^ inch ones, Hmmm. . . 

Specifications 



Inside, the 1581 is nicely laid out with a well shielded CHINON 80 The technical parameters are summarized in Table I. Note the 
track drive mechanism connected to the main circuit board via a difference between the "physicar^ and "logicar^ organization of 
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the disk. This will be explained in greater detail later Also note 
the mention of directory partition. This loo will be explained later. 
A couple of the 1 SSI's more salient points are its capacity {800k or 
3160 blocks free) and speed (average about 1.5 times as fast as a 
1571 when used with aC-128or 1.5 times as fast as a 1541 when 
used with a C-64, etc.). Unlike the 1571, the full capacity of the 
drive, along with its advanced features (except burst mode), are 
available to all computers capable of supporting the serial port. 

Large sequential, program and user files are limited only by disk 
space (or available computer memory). Large relative files are fully 
supported up to full disk size (minus, of course, the overhead for 
side sectors, etc.) by the use of "super side sectors'' or extended 
side sector blocks. 



A speed test of the 1581 and comparison to other computer/drive 
combinalions is summarized in Table 2. The tests were conducted 
withaC-128 running in slow (1 MHz) mode and C-64 mode using 
the CIA *2 TOD clock as an automatic hardware timer. The TOD 
{or time of day) hardware clocks are based on the system clock, 
and are very accurate. They are not affected by disk operations or 
system interrupts. Unfortunately, the TOD clocks (one for each 
CIA) are not used in CBM ROMware. 



All functions were performed from BASIC using commands such 
as LOAD. SAVE, PRINT'^, INPUT*, etc. The relative file tesi 
included double record positioning, although Ihe 1581 manual 
assures us that this is not required for the 1581. (It is still used in 
the examples in the manual to "maintain compatibility with other 
drives".) At Ihe start of each tesI, the disks contained identical sets 
of test files, stored in the same order. The speeds are only meant to 
be a relative indication of disk I/O from BASIC for a given set of 
conditions. Disk I/O speed depends on a number of factors such 
as where (i,e, proximity to directory track) and how (contiguous- 
ness) a file is stored. 

As you can see, the 1581 is considerably faster in all modes of 
operation than either a 1541 or a 1571. The increased speed is 
primarily due to the track cache used by the 1581 to buffer an 
entire track at once in RAM for all I/O operations. After reading an 
entire track into RAM, any further references to that track, either 
reads or writes, only involve RAM-to-RAM transfer of data. The 
track cache Is then written back to the disk if it has been changed 
by DOS, incidentally, the 1 46 block file burst loaded in 5,3 seconds 
with the 1581/C-12S combination is a blistering 7000 bytes per 
second! It is also interesting to note that, when used with a C-64, 
Ihe write speed is consistently faster than the read speed! Anyone 
care to hazard a guess on the reason for this? 



■uO>bO' forces the serial bus to slow mode (default for a C-64, etc.) 
'iiO>bl ' forces the serial bus to fa.st mode (default for a C-'12S) 

These two take Ihe place of the 'uO>mO" and 'uOml' mode 
commands on the 1571). 



1581 DOS 

The 1 581 disk operating system supports all of the standard DOS 
commands of other CBf^ drives that we have come to know and 
love and contains a number of refinements over these previous 
DOSes, Since the DOS was supposedly re- written from scratch for 
the new hardware, the notorious SAVE and relative file bugs are 
said to be finally and totally eradicated. (At least, they have not 
surfaced yet.) Burst mode is also supported for C-128 users. The 
1581 burst command set is virtually identical to the 1571 set with 
a few changes to the utility commands: 



'uO>vO' turns on verify after write 

■uO>v1 ■ turns off verify after write 

*uO>mr" + chr$( > memory address) + chr${number of pages); 

and 

"uO>mw' + chr$( > memory address) + Ghr$(number of pages) 

These are memory read and write commands allowing transfer of 
multiple blocks of data (in 256 byte pages) via burst mode. This 
allows direct reading a[id stuffing of the track cache buffer. In 
addition, a new switch bit has been provided for the burst read and 
WTile commands to select logical or physical track and sector 
numbering systems. 

An extended block read and block write command set is also 
provided. 

"b - R- (that's b - <shift> r) and 
"b - W (b - <shift> w) 

These are similar to ua: " and "ub: ", except that DOS does not check 
to see if the track and sector numbers fall into Ihe range that it 
normally expects. Presumably, this is so that you can read and write 
non-standard disks, maybe even weird copy protection schemes 
and foreign disk formats, with block read and block write. 

Although i! is not specifically mentioned in the User's Guide, the 
1581 supports extended directory pattern matching. The pattern 
match character can be placed anywhere in the pattern string. For 
example: 

"*bas' will find all files which end with 'bas" 
"a^b" will find all files which start with "a" and end wtth "b', 
regardless of the length of the filename. 

This feature is very convenient for people who append file types, 
such as "bas". "ml", "text', "asm", "obj" etc. to file names. Searching 
for a series of assembler source files on a disk is as easy as: 

directory "^.asm" 

The extended pattern matching can also be used In other DOS 
commands such as opening or LOADing a file, scratching a series 
of files, etc. A nice touch, Commodore, 

As previously rumoured, the t58l supports subdirectories or, 
more correctly, disk partitioning, with each partition having its 
own BAM and directory. Each partition can thus have 296 file 
name entries. All this comes at a cost: each partition used as a 
subdirectory also requires 40 blocks of overhead for this addi- 
tional BAM/directory track. In general, the partitions can be any 
size, from 1 logical sector up to about half of the disk capacity, and 
are created by a simple DOS command: 

/0:{partition name}" + chr${3tarting logical track*) 

chr$(starting logical sector#) -+- chr$[ < # sectors to partition) 
chr$( ># sectors to partition) + \C' 
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This command must be sent from Ihe computer to the disk drive 
over the command channel, similar to any other BASIC 2.0 type 
disk operation, because neither BASIC 2.0 nor 7.0 supports a 
partitioning command. The partition cannot overlap the normal 
BAM and directory areas, hence the limitation on maximum 
partition size {the BAM/directory track is smack in the middle of 
the disk on logical track *40). The partitioning command can be 
used for protecting almost any size area on the disk from being 
overwritten by DOS. In real terms, the partition command works 
by assigning the disk area to a file in the root directory (you can 
also nest partitions but the procedure soon become very compli- 
cated) with the new file type CBM. The number of blocks indicated 
for the CBM file is the partitioned area size. The ''file" occupies a 
contiguous ^area on the disk, and once set cannot be easily 
changed in size without destroying it. 

To use the partition as a subdirectory area, several special steps 
are required. First, the starting logical sector number must be 0. 
Next, the partition size must be a multiple of 40 blocks (i.e. whole 
tracks). Third, the partition must be a minimum of 120 blocks 
long. After creating a partition, it can be selected by: 

VO:{partitfon name}* 

Once selected, the partition must be formatted before first use as a 
subdirectory. This is done using the normal DOS format com- 
mand: 

■NO;diskname,ID'or 
HEADER-disknameMid 

The specified disk name and ID code need not be the same as for 
fhe rest of the disk. This puts the BAM and directory information 
into the first track of the partition. You have to be careful with this 
partitioning scheme: If you format without properly selecting the 
desired partition, you will erase the entire disk! (h is interesting to 
note that the ID code is not embedded into the sector header data 
in the manner of 1541/1571 drives and in fact serves no real 
purpose on the 1581 except as a simple identifier for DOS to tell 
what disk it has. You can change the ID code as often as you tike 
because it is only stored in certain areas such as the Directory 
header block}. 

Once a partition has been selected, all reads and writes to disk will 
be made to files in that directory only. All other files in other 
directories on the disk will not be found. Copies of files may reside 
in several partitions, even under the same names, but these are 
totally separate copies. The root or main directory can be selected 
by a: 

70:" with no partition name specified, 

A few new DOS status and error codes have been provided to 
indicate the selection of a partition or an illegal partition specifica- 
tion. If you are protecting a smaller area of the disk, say the BOOT 
sector, you must set up the partition BEFORE you write to that pan 
of the disk. The partitioning process will wipe clean the area that 
is being protected. One thing which I do not like is that the CBM 
files are not ^locked" entries. This means that you can wipe out an 
enhre subdirectory with an errant SCRATCH command. 

For advanced users, the internal DOS functions, such as read a 
sector, etc., can be accessed via a KERNAL type jump table in high 



ROM. All of the most important functions are also passed through 
individual indirect RAM vectors allowing them to be trapped and 
redirected. The internal DOS routines also allow you to bypass the 
track cache and read or write a disk sector directly via one or more 
of the job buffers. This handy feature frees up 5 Kbytes of drive 
RAM which can be used for cus(om drive programming. You can 
stuff quite a bit of ml code into 5 K! 

Another feature provided is the automatic execution of an "&" type 
utility file on power-up or soft reset. When a reset occurs, the 
1581 searches the root directory for a file named "COPYRIGHT 
CBM 86", then loads and executes it in drive RAM if found. This 
must be a USR type "&" disk utility file. It can be used to set up 
custom programming routines, such as changing the RAM jump 
vectors, automatically on drive startup or initialization. 

Physical and Logical Disks 

The 1581 disk is physically configured as 512 bytes per sector, 10 
sectors per track, 2 sides, 80 tracks per side. It is interesting to note 
that the sides on the 1581 are flipped compared to the numbering 
system used by MS-DOS and ATARI ST disks of the same side (i.e. 
side is side 1 and side 1 is side 0. Use the demo program at the 
end of this article to see this for yourself if you wish). The tracks 
are numbered from to 79 as per the standard MFM numbering 
scheme, and the sectors from 1 to 10 on each side. The 512 byte 
physical sector size allows an extra 512 user bytes per track to be 
squeezed on, maximizing disk usage. The WD 1 772 disk control- 
ler chip can only handle 18 x 256 byte sectors per track, equiva- 
lent to 9x512, at its normal recording density when you take into 
account the overhead bytes required for each sector. The 1 581 is a 
radical departure from other 8-bit CBM drives in that it uses the 
industry standard IBM System 34 MFM recording format instead 
of Commodore's 4 for 5 OCR encoding scheme. This means that 
you can physically read and write other disk types (such as 3V2 
inch MS-DOS as used in many laptops and ATARI ST) in the 1 581 
and, perhaps more importantly, read ^nd write 1 58 1 disks in these 
other machines. Of course, you will need a suitable conversion 
program because the logical format of each of the above men- 
tioned disk formats is totally different. 

For some reason, probably to maintain some degree of similarity 
with earlier DOSes (although 1 don't see why because the medium 
is totally incompatible), the DOS uses a different logical addressing 
scheme. The logical scheme, which is used by all of the user DOS 
commands, such as block-read, etc, some of the job queue 
commands and some of the burst mode commands, consists of; 
single sided, 80 tracks (1 to 80), 256 bytes per sector, 40 sectors 
per track (0 to 39). In this scheme, logical sectors to 19 are on 
side and 20 to 39 are on side L There are two logical sectors in 
each physical sector. As with other versions of DOS, the first two 
bytes of each logical sector represent the link to the next logical 
sector in a given file. 

The root or main directory is on logical track 40 (physical track 
39). The directory header is logical sector 0, BAM for logical tracks 
1 to 40 is in logical sector 2 and BAM for logical tracks 4 1 to 80 is in 
logical sector 2. The directory proper starts in logical sector 3 and 
uses the rest of the track. The format for partition directories is 
identical, except that the BAM is only local for the specific 
partition. 
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U should be noted that because the directory and BAM is in a 
different location on the 1581, any 1541/1571 software that 
accesses the directory track directly, such as unscratch, directory 
alphabetizing and lock-unlock programs, will not work with the 
1581 without modifications. 



Utilities and DociuMnt ation 

The user's guide that conies with the 1581 is clearly superior to 
any supplied with the 1541 or 1571, It even takes the advanced 
programmer to heart with memory maps (albeit not very detailed) 
and a detailed description of how the job queue system works, 
complete with a listing of job codes, error returns and a BASIC 
example. The guide contains many more detailed examples than 
previous guides, but is still lacking in the area of burst mode. The 
burst mode descriptions are in the same weak format as the 1571 
manual with no actual examples beyond a cryptic verbal descrip- 
tion. To CBM's credit though, the demo disk that comes with the 
drive contains a fairly detailed example burst mode program, 
complete with annotated assembler source code. 

The manual makesvirtually no reference to the fact that the 1581 
can be easily prt^rammed to read other 3V2 inch disk formats, 
such as IBM PC system 2 and Atari ST It will not read Amiga or 
Macintosh disks directly from DOS due to a completely different 
physical disk structure. However, with over 5 K space available for 
custom programming, anything is possible. 

The utility disk supplied with the 1581 comes with a number of 
really useful programs. The back-up routines for both the C-128 
and C-64 support expansion RAM and/or multiple drives to 
minimize disk swapping. A fast loader, "ZAPLOAD", is provided 
for the C-64, which doubles the speed at which files will load. 
Files to load are selected from a menu. Also included are a sector 
editor fortheC-128(noljust "display track and sector") and other 
utilities for creating BOOT sectors, partitions, etc. The only thing 
which I did not like about the sector editor was that it works on 
CBM DOS disks only using logical sector numbers and will not let 
you examine foreign disk formats very easily. The simple demo 
program included with this article works with any readable disk 
type, including MS-DOS, and ATARI ST. 

A few hi-res pictures are also iixluded in a slide show for the C- 
128 in 40 column mode to demonstrate the drive's speed. 



Fast loaders, fast copy utilities, nibble copiers and 1 54 1 based copy 
protection schemes will probably not work with the 1 581 because 
they are too hardware and DOS specific to the older 5V4 inch 
drives. However, other non- copy protected software works well 
with the 1 581 . C-128 CP/M will currently not boot from the 1581 , 
although 1 understand that an upgrade will be available. Once 
booted from a 1571 or 1541, CP/M will work, to a limited extent, 
with the 1581, The physical disk format is very similar to EPSON 
QX- 10 format. Therefore, CP/M thinks it is a QX-10 disk and 
treats it accordingly. The trouble with this is that you lose half of 
your disk capacity (QX-10 is only set up for 40 tracks). For those 
diddlers interested, you can use ail 800 k in CP/M mode by 
changing a few bytes in the CPM + .SYS file disk parameter table 
using a debug tool such as DDT or SID. Of course, you lose 
compatibility with true QX- 1 0, but who uses that format anyway?. 
(Complete details will be published in the next Transactor), 



Demo 

Listing 1 is a short demo program for the 1581. The source code 
for the machine language portion is contained in listing 2. The 
program is a simple display track and sector utility that works by 
direct access to the job queue and disk 1/0 buffers. It works with 
the C-128 in 80 column mode only and will read many types of 
3V2 inch disks. The program is very simple to use and works in 
terms of physical tracks and sectors rather that CBM DOS logical 
sectors. The operating details and command keys are contained in 
the REM statements and screen prompts, so 1 won't repeat them 
here. 

As mentioned previously, you will find the sides flipped for non 
CBM DOS disks. The MS-DOS BOOT record is always on side 0, 
track 0, sector 1, while the 1581 finds it on side L Similarly, 
single-sided disks, such as ATARI ST, should have the data on side 
0, yet the 1 581 sees it on side 1 . Both MS- DOS and ATARI ST use 
a 512 byte sector size, 9 sectors per track, numbered 1 to 9. The 
directory structure and disk allocation method for ATARI ST and 
MS- DOS are quite similar, although located in slightly different 
areas of the disk. 

Since the demo program uses physical track and sector numbers, 
the CBM DOS directory will be on side 0, track 39. The directory 
proper starts at physical sector 2V2 (i.e midway through sector 2) 
and continues to the end of side 1, track 39, sector 10, The C-128 
BOOT sector is located in the first half of side 0. track 0. sector 1 . 



Compatibility 

As mentioned previously, any program that tries to access the 
directory track directly with block reads or writes will not find it 
and therefore will not work with the 1581 without modification. 
This includes C-'64 GEOS, It will probably take some lime before 
commercial software is supplied in the 3 V2 inch format and, until 
ills, you may have to boot up your favourite program on your 5 'A 
inch drive and use the 1581 for data storage only. A minor 
inconvenience, but generally livable. The 1571 DOS shell for the 
C-128 works with the 1581 in its file copying mode for transfer- 
ring a range of files between drives. The various directory rou- 
tines, such as unscratch and re-order, do not work for the reasons 
previously outlined. 



Final Word 

The 1581 is well worth its long delay in getting to market but, like 
some other products, its usefulness is limited by the lack of 
software available for it. In all fairness, i must give the guys at CBM 
credit for doing an excellent job on this one, its large disk capacity 
is a breath of fresh air, especially for C-64 users who have 
frequently complained about the 1 54 i's puny 1 70 K capacity. 
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Table 1: 1581 Technical ^ecifications 



Table 2: Summary of Disk Drive Test Speeds 



Total fornidlted capacity 808,960 bytes 

Number of directory entries 296 (each directory partition) 

Maximum SEQ file size 802,640 bytes 

Maximum REL file size 800,000 bytes (approx) 

Max, records per REL file 65,535 

Number of DOS RAM buffers 9 (7 I/O + 2 reserved for BAM) 

Track cache buffer 5 K bytes 

Recording format MFM (IBM system 34) 



PlQ^skal Disk Organization: (as seen on tlie disk) 
Number of sides 2 (numbered and 1) 

Number of tracks per side 80 (numbered to 79) 
Numberof sectors per track 10 (numbered 1 to 10) 
Number of bytes per sector 512 



Logical Disk Organization: (as seen by DOS) 

Number of sides I 

Number of tracks 80 (numbered 1 to 80) 

Number of sectors per track 40 (numbered to 39) 

Number-of bytes per sector 256 

Number of blocks free 3160 



Notes: 

Ml logical to physical conversions are done automatically by DOS 

Each physical sector is subdivided into 2 logical sectors. 

Each logical sector begins with the track and sector pointer to 

the next logical sector, as per normal CBM DOS. 



Chips: 




Microprocessor 


6502 A 


I/O Interface 


8520 A 


32 K bytes ROM 


23256 


8KbvtesRAM 


4364 


Disk controller 


WD 1772 



Physical Dimensions: 

Height 63 mm 

Width 140 mm 

Dtipth 230 mm 

Weight 1.4 kg 



External Power Supply: 

North America 100-120 VAC, 60 Hz, iO W 
Europe 220-240 VAC. 50 Hz, 10 W 



Operation 



Disk Drive / Computer 



1541/64 



1571/128 1581/128 



1581/64 



FORMAT disk 


80 


40 


100 


LOAD short 


4,5 


L5 


0.4 


LOAD long 


93 


11,5 


6.4 


ZAP LOAD long 


30 






Burst LOAD short 




0.4 


0.4 


Burst LOAD long 




10.4 


5-3 


SAVE short 


6.5 


5.7 


2.1 


SAVE long 


100 


71 


31.5 


WRITR SFQ file 


9.3 


7.8 


5.7 


READ SEQ file 


8-1 


4.6 


3.8 


WRITE REL file 


155 


109 


57.3 


READ REL file 


80 


77 


32.3 



100 
3.5 
75 



4,5 

52 

6.8 

7.3 

89.5 

37.5 



Notes: 

1) All times are in seconds and were obtained using the CIA *2 TOD 
clock as a timer The times you gel may vary depending on disk 
usage (i.e if the files are stored contiguously or not, and how far the 
head has to move to access the files), 

2) The short program is 5 blocks in size and the long is 146 blocks. 

3) ZAPLOAD 64 is a fast loader for the C-64 and 1 581 which is supplied 
on the 1581 demo disk. It takes 6 seconds to load. 

4) The SEQ file consists of 100 strings of 24 characters each. File reads 
and writes are via BASIC'S INPUT" and PRINT* statements in a 
FOR-NEXT loop. 

5) The REL file consists of 100 records of 64 bytes long each. Records 
are read and written in BASIC in pseudo-random order (100, 1, 98. 
3,.-- . 99, 2) designed to maximize record searching. Record 
positioning commands given twice for each record. The write speeds 
mdude initial creation of a 64 bvte x 1 00 record file. 



Listing 1; 1581 drive demo program for the CI 28. 

Note: With the exception of "[N spcs]", literals such as ^'<left>" and 
"<up>" that appear in this program should be entered AS SHOWN 
- do NOT replace these with cursor control characters. 



G H 1 000 rem'***'**"*'**************'********* 

GD 1010 rem * • 

GB 1020 rem* 1581 demo program * 

HF i 1030 rem* by * 

MB; 1040rem* m. garamszeghy . * 

OF 1050 rem * * 

AO 1060 rem* forc-128and 1581 drive * 

CM 1070 rem • - * 

GM 1 080 rem *i'*ff**»*»«*<»«*t"»**«*»************ 

GL 1090: 



JM 1100dv = 9 



KM 
FH 
FP 



: rem disk drive device number 



1110: 

1 120 Iast:printchr$(147);:b1=3328:b2 = 3338 
1130for i = 2816to2935:readx:pokei,x:nexl 
; rem poke machine code 



10 
MH 

MP 
KP 
HK 
NN 
EG 

PG ; 

DJ 

PE 

ME 
LF 

KE 

DK 



1140: 

1 150 print'p spcs]******* 1581 displayt&s <G>m. 
garamszeghy 1987 -'**t.*4*" 

1160: 

1 1 70 sp$== ■s*:print:print:input*[s]cfeen or [p]rinter";sp$ 

1180pd = 3:ifsp$='p"thenpd = 4 

1 1 90 open 1 ,pd: rem open output file 

1200: 

1210 print;print"inserl disk then press a key . . ," 

:gelkey i$ 
1 220 open 1 5,dv, 1 5,"u0" + chr$(1 0): sys 281 6,0 

: rem analyse side 
1230 primal 5,'u0--fchr$(26): sys 281 6,10 

: rem analyse side 1 
1240; 
1 250 tl = peek(bl ) and 1 4 t2 = peek{b2) and 1 4 

; rem burst status byte side and 1 
1260 ifti and t2 then print "**# disk error ***" 

:getkeya$:gotol720 
1 270 S2 = peek(bl } and 48. if t1 then sz = peek(b2) 

and 48: rem check sector size 
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FM 
HF 
NG 
JC 

NE 
MP 



JG 

EM 
CK 

LN 
HO 
MO 
HJ 

FD 
KA 
Nl 

MK 
MO 

LA 

GE 

CE 

AF 
OP 

CD 
OG 
AA 
DA 

]K 
GJ 

AK 
JL 
LA 

CG 

ID 
ON 
Gl 
CA 

CC 

BN 

HK 



1280sz = sz/16:ifsz-3lhensz = 4 
1290s1 =peek(b1 +4):m1 =peek(b1 +5) 
1 300 s2 = peek(b2 + 4);m2 = peek(b2 + 5} 
1310 window 0,2.79,24,1 :ifpd = 4 then cmd 1 

:gosub 1 940:print#1 :close1 ;open1 ,pd 
1320gosub1940 
1330 si == -1 :input"side,track,sector";si.t,s:if si = -1 

then 1720 
1340prinl#15,"m-w^chr$(206)chr$(l)chr${1)chr${si) 

: rem set side 
1350print#15,"m-w'chr$(11)chr$(0)chr$(2}chr$(t)chr${s) 

: rem set t & s 
1360: 
1 370 tern then stuff job code for read physical sector 

into job buffer 
1380print#15,'m-w'chr${2)chr$(0)chr$(1)chr$(164) 
1390go3ub 1410: goto 1440: rem wait till job done 
1400: 
1410 print#15,"m-r"chr$(2)chr$(0}chr$(1) : rem check 

job status 
1420 get#15,aS:ifasc(a$)>127 then 1410 : else return 
1430: 
1 440 window 0,24,79,24,1 pnnt^l /side »"si, 

track »t;sector»"s; 
1450 window 0,20,79,23 
1460 prinf<left> - decrease sector#[11 spcs] 

<right> - increase sector*" 
1470 prinI"<down>- decrease track#[1 5 spcs] 

<up>- increase lr3ck#" 
1 480 print" <esc> - select new track, sector[3 spcs] 

<space> - ne)ct 256 bytes "; 
1490 itasc{a$)>1 then print#1,'*** error #'asc(a$) 

■***":goto1320 
1500: 
1510print#15,"u0>mr'chr$(3)chr$(sz} 

; rem burst mode memory read 
1 520 sys 281 9,sz :rern read data via burst rrode 
1530. 

1540itpd = 4thenprint#1," " 
1 550 tor 1 = 4864 to 4864 + sz*256-1 step 256 

: rem display data in hex form 
1560 window 0,2,79,19,1 
1 570 for J = to 254 step 1 6 : rem 1 6 bytes per line, 

256 bytes per page group 
1580: 

1590nu$-rJght$(hex${i + j-4864),3) + " : '^2$ = ': " 
1600fork = 0to15:n2 = peek{i + j-+-k) 

:nu$ = nu$ + riQht$(hex${n2),2) + ' " 
1 61 n$ = chr$(n2):if n2<32 or (n2>127 and n2 <1 60) 

thenn$ = "." 
1620n2$ = n2$ + n$:next:print#1,nu$;n2$:next 
1630: 

1 640 it pd = 3 then getkey a$ : rem get a key press 
1650 if a$-chr$(145) then l = t-f1 goto 1340 

: rem cursor up = increase track # 
1660ifa$ = chr$(17) Ihent^t-I: goto 1340 

: rem cursor down = decrease track # 
1670ifa$ = chr$(157)thens = s-l: goto 1340 

: rem cursor left = decrease sector if 
16e0ifa$ = chr${29) then s = s+1: goto 1340 

: rem cursor right = increase sector # 



AC 

BL 

CC 
EA 
GD 
EK 
KE 
FD 
HH 
PO 
FO 
PB 
AA 
KO 
DD 
JD 
AP 
Gl 
HJ 
HD 
IK 
GJ 
KO 
NG 
OP 
Fl 

ED 

BL 

EF 
EG 

ON 



169. 

44, 13 

73, 16 
96, 120 

73, 16 

32, 6 

31, 11 



1690ifa$ = chr$(27) then 1310 

; rem escape = select new values 
1700 next:golo 1310 

: rem other key = display next group 
1710: 

1 720 ddose u(dv):close 1 :window 0.0,79,24,1 :end 
1730: 

1740 rem machine code data 
1750: 

1760 data 76, 44, 11, 76, 84, 11, 
1770 data 141, 0,255, 96,169, 8, 
1 780 data 220, 240, 251 , 1 73, 0, 221 , 
1790data141. 0,221,173, 12,220, 
1800 data 44. 13,220,173, 0,221, 
1810data141. 0,221, 96,133,250, 
1820data 11,169, 13,133,251, 32, 

32, 12, 11, 145,250, 41 
15,200, 192, 2,208,242 
11, 145,250,200,192, 7 
88, 96, 133,252, 169, 
1870data133,250,169, 19,133,251, 32, 6 
1880data 11, 32, 31, 11,160, 0, 32, 12 
1890 data 11,145,250,200,208,248, 198,252 
1900data240, 224,230, 251, 76,102, 11,255 
1910 

1 920 rem print disk details 
1930: 
1940 print "sector size ="sz*256:print:if t1 or t2 then 

print "single sidedfl" 
1950 if tl then 1970 
1960 print "sideO:" print "min sector #';s1, "max 

sector #"m1 
1970 if t2 then 1990 
1980 print: print "side l:':print "min sector #";s2, "max 

sector #"m2 
1990 print: return 



1830data160, 0, 
1840data 14,208, 
1850 data 32, 12, 
1860 data 208, 246, 



Listing 2: Source code (in "Buddy" or "PAL' assembler format) for the 
machine language code used in the demo program. 



100 ; 1581 display &s burst mode source code 


no. 








120;<c>m. 


garamszeghy 1987 


130; 








140; 






■ 


ISOpntr 


= 


$fa ; 


;zero page poinler 


160 size 


= 


$fc 


;number of bEocksto read 


170 mmu 


= 


SffOO 


;mmu config reg 


180 data 


= 


$1300 


;start of data buffer 


190conf 


= 


$0d00 


;start of disk type buffer 


200 clock 


= 


$ddOO 


;burs cock ine 


210c1d( 


= 


SdcOc 


; burst data register 


220clicf 


= 


SdcOd 


; burst interrupt register 


230; 








240; 








250 V = $ObOO 




;decima 2816 


260 .opt 00 






;assemb e to memory 


270; 








280 impiable 


- 1 


41 


F 


290 


jmp 


1 tesidsk 


.analyze disk 
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300 

310; 

320 setbnk 

330 

340 

350 

360; 

370 loggfe 

380 

390 tog 1 

400 

410 

420 

430 

440 

450 

460; 

470 reset 

480 

490 

500 

510 

520 

530 

540; 

550 testdsk 

560 

570 

580 

590 

600 

610 

620 lesl 



jmp readdala ;burst memory read 



Ida #0 

sta mmu 
ris 

= * 

Ida #8 

bit clicr 

beq logl 

Ida clock 

eof #$10 

sta dock 

'Ida ddr 
rts 

= w 

sei 

bit c1 icr 

Ida clock 

eor #$10 

sta clock 
rts 

= * 

sta pntr 

jsr setbnk 

Ida #>conf 

sta pntr + 1 

jsr reset 

Idy #0 

jsr toggle 



;setlobank15 



;toggle data fine 

;wartforicr 
; toggle clock 
;get a data byte 

;injt burst mode 



;toggle clock 



[burst mode query cfisk format 

;save offset into format buffer 

;gotobank15 

;high byte o1 format buffer 

:starl burst mode 

:gel first status byte 



630 


sta 


(pntr),y 


;and stasfi it 


640 


and #$0e 


; check for errors 


650 


bne exittest 




660 


iny 






670 


cpy 


#2 




680 


bne tesi 


;get next status byte 


690 tes2 


jsr 


toggle 


;get data byte 


700 


sta 


{pntr),y 


;and save it 


710 


iny 






720 


cpy 


#7 


;checkfor aldone 


730 


bne tes2 


- 


740 e!<ittesl 


= 


* 


;exit disk test routine 


750 


cli 




; restore interrupts 


760 


rls 






770; 








780 readdata = 


» 


;burst mode memory read 


790 


sta 


size 


;number of pages 1o read 


800 


Ida 


#<data 




810 


sta 


pntr 


;sel pointer to data buffer 


820 


Ida 


#>data 




830 


sta 


pntr 




840 


jsr 


setbnk 


;set bankto15 


850 


jsr 


reset 


;start burst mode 


860 


Idy 


#0 




870 real 


jsr 


toggle 


;get data byte 


880 


sta 


(pntr),y 


landsaveit 


890 


iny 






900 


bne real 


;end of page? 


910 


dec 


size 




920 


beq exittesi 


;last page? 


930 


inc 


pntr + 1 




940 


jmp 


real 


;go get next page 


950; 









w/V. ^ 
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CP/M and the 
1581 Disk Drive 



M. Garamszeghy 
Toronto, Ontario 



Upgrade your CI 28 CP/M for the new CBM drives 



Older versions of C-128 CP/M will not fully support the new 
1581 disk drive. This is a pity because the large capacity of the 
1 581 combined with its high speed make it an ideal CP/M drive. 
Of course, you can mail in the coupon which comes with the 
1581 along with some of your hard earned cash and get yet 
another "upgrade" version of CP/M which does support the 
1581. 1 already have three different versions of CP/M for my C- 
128 (the original plus two ^'upgrades")so why dol need another 
one just to use the 1581? The short answer is that 1 do not. 

The first problem involves creating a 1581 CP/M format disk. 
This is easiest to do with the C-128 in native mode using the 
burst mode format command since older versions of CP/M's 
FORMATCOM utility do not work properly with the 1581. The 
following command siring can be used, assuming your 1581 is 
device 9: 

open15,9,15 

print#1 5/uO" + chr$(1 34) + chr${2) + chr$(79) + chr$(1 0} 

+ ctir$(0) + chr$(229) + chr$(1} 
close 15 

This will format the disk identical to a 1 581 DOS disk physical 
structure (i.e- 512 byte/sector. 10 sectors track) but without the 
directory, BAM, etc, and fill it with CP/M blank disk bytes ($e5 
or dec 229)- 

Next, with a few simple modifications to the CPM + .SYS file, you 
can take full advantage of the capacity of the 1581 without 
forking out for the latest upgrade disk. You can still use the disk 
formatted by the method above with CP/M if you do not make 
the following mods, but you will only be able to fill it half full. 
This mod will not allow you to boot CP/M from the 1 581 , but it 
will allow you use the 1581 once CP/M has been booted from a 
1571 or 1541.([nmypresentsetup.the 1571 is device 8 and the 
1581 is device 9. CP/M can only be booted from device 8 
anyway). A note in Commodore's favor is that the CP/M up- 
grade will allow you to boot from the 1581 if it is connected as 
device 8. 

The procedure involves changing a few bytes in part of the 
CPM + . SYS file know as the "disk parameter block tMe". This 
table, which is described in detail in the "CP/M 3 System Guide" 
under section 3.3 BIOS Data Structures on pages 40 to 44, 
contains the data for the physical characteristics of the MFM disk 



formats supported by C-128 CP/M. The location of the table in 
the CPM + .SYS file depends on the version of CP/M that you are 
using. The instructions for all three current versions are outlined 
below. The locations are summarized in Table 1 and referenced 
in the text. 

Before continuing, you will need a formatted CP/M disk {C-128 
1541 single or 1571 double sided format) containing the CP/M 
system files (CPM + .SYS and CCRCOM) and the utility SID.COM 
(or the older DDT.COM or equivalent debugger utility). You can 
also include a copy of SH0W.COM to check the results after- 
wards. The SID.COM program resides on the CP/M additional 
utilities disk that comes with the Digital Research CP/M plus 
documentation. Several other public domain debuggers are also 
available if you do not have SID. 

NOTE: USE A BACK UP WORK DISK- 
DO NOT DO THIS WITH YOUR ORIGINAL SYSTEM 
DISK BECAUSE IT WILL MAKE PERMANENT 
CHANGES TO THE OPERATING SYSTEM. 

After booting up CP/M, note the version date printed on the 
screen. This will be used as a reference for the addresses in 
Table 1, Insert your work disk and type in: 

sid cpm + .sys <return> 

Note that for clarity, 1 will use lowercase letters to indicate items 
Ihat you type in and UPPERCASE fur prompts made by the 
computer. 

After a few moments, the following status message will be 

displayed: 

CP/M 3 SID- Version x.x 
NEXT MSZE PC END ■ 
zzzz zzzz 0100 CEFF 
# 

where zzzz is a hexadecimal number based on the version date, 
as listed in Table 1 . Jot this down for future reference as it will be 
needed when saving the changes. The ''*"' symbol is SlD's 
command prompt. 

Now we are ready to make the changes. The physical formal of a 
1581 disk is identical to that of the EPSON QX-IO (10 sectors 
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per track, 5 1 2 bytes per sector, 2 sJdes), The only difference is in 
the number of tracks per side (80 for the 1 581 compared lo 40 
for the EPSON). It makes tilings easier lo start with the EPSON 
parameters and change them a bit rather than create a whole 
new entry. (The modifications will still permit full read compali- 
biJily with the EPSON disks and nearly full write compatibility 
on the 1571, The incompatibility in writing is only that the 
operating system may attempt to write more to the EPSON disk 
than it can hold, thus causing a disk error if you try to write to an 
almost full disk). 



snnnn 



When SID prompts with: 



nnnn 45 



Type in a quote (■) followed by 3 spaces then 1581 and 3 more 
spaces and a return. At the next prompt, type in a period to 
return lo the main SID prompt. Type in: dyyyy <return> again 
to check your changes and the following should be displayed: 



Next type in: 



y y y y: 50 00 04 OF 00 86 01 7F 00 CO 00 20 00 02 00 02 P 
y ymm: 03 OA 20 20 20 31 35 38 31 20 20 20 49 A5 00 81 . 



1581 



* dyyyy <return> 

where yyyy is taken from Table 1. This is SiD's d or display 
memory command. Note that in this, and ail other SID com- 
mands, there is no space between the command letter and the 
command parameters. For example, d yyyy would produce an 
error prompt. 

StD will respond with a display similar to: 



yyyy: 50 00 04 OF 01 BDOO 7F 00 CO 00 20 00 02 00 
y ymm: 03 0A45 70 73 6F6E 20 51 58 31 30 49 A5 00 



plus some more rows of similar hexadecimal numbers followed 
by the ''*'^ prompt. The next step is to change some of the bytes. 
The ones that are changed are referred lo in Digital Research's 
documentation as EXM (extent mask - 1 byte), and DSM (total 
drive storage - 2 byte word). These are the two parameters 
which tell the system how much data it can store on a disk. The 
change is done with SlD's s or set memory command. Type in: 

sxxxx <return> 

where xxxx is taken from Table 1 , SID will respond with: 

xxxx 01 

The 01 is the current value of the byte at this location. Change it 
to the desired value by typing in 00 followed by return. SID will 
then prompt for the next byte: 

XXX 1 BD 

Type in 86 followed by return, SID will then prompt for the next 
byte: 

xxx2 00 

Change this by typing in a 01 followed by return. That com- 
pletes the major changes. At the next prompt 

xxx3 7F 

Enter a period "/' followed by return. This should bring back the 
main SID prompt '^*"\ If you want to change the disk type name 
from Epson QXIO to say 1581, use the s command again: 



The final step is lo save the changes. This is done with SiD's w or 
write command: 

wcpm + .sys 0100 zzzz <return> 

Once this has been done, your new CP/M system is ready for 
action. Re-boot the computer (you need to boot the modified 
CP/M system) and turn on your 1581 as drive b: (device 9). Vou 

can now PIP some files to a 
formatted 1581 disk (as out- 
lined above) and use it at will 
for all file storage. You can 
check the capacity of the 
drive by u.sing the SH0W.COM utility: 



02 P 

81 . .Epson QXIO 



show b: 

will display the amount of space currently available on the 1581 . 
If it does not give something like 800k read write space free with 
a formatted blank disk, then your changes may have gone awry. 
Double check the changes outlined above and try again. 

The procedure outlined above can also be done using the RAM 
disk (drive m:) as the working drive if you have a 1750 RAM 
expander In this case, you would PIP the required files to the 
RAM disk, do the modifications and PIP them back again to your 
work disk. The same method can be used to alter the disk 
parameto table to support other CP/M disk formats on the 
1571, such as Televideo, Xerox, DEC, etc which are not nor- 
mally supported by C-128 CP/M, In this case, I would suggest 
that you consult the explanation of the table parameters in the 
CP/M System Guide. You also need to have a tfiorough under- 
standing of the disk format that you wish to implement. 

Table 1: Summary of CPM + .SYS file addresses 



Parameter' 



Values by CP/M Version Date 
1 Aug 85 6 Dec 85 8 Dec 85 
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Programming 
The 1 54 1 



Frank DiGioia 
Stone Mountain, GA« 



. , ,Now, even the weekend hacker can enjoy the thrills and 
chills ofbein^ in complete control of the disk drive, , , 



There was a time when the idea o* programming the Commo- 
dore 1541 disk drive was little more than a whimsical desire of 
late night, die-hard hackers. But now, programs ranging from 
word processors to new operating systems are utilizing the free 
RAM in the 1541 to reprogramthe drive, allowing it to perform 
tricks no one previously would have dreamed possible. A wealth 
of information concerning the inner workings of the 1541 has 
become available to the public. Now, even the weekend hacker 
can enjoy the thrills and chills of being in complete control of the 
disk drive. This article is intended primarily for those who just 
want the chance to try some easy-to-type-in experiments with 
their 1541 disk drives. I am, however, including some detailed 
technical information so that those readers who desire to experi- 
ment beyond what is presented in this article may be better 
equipped to do so. In the following paragraphs I will provide 

brief coverage of the Job Queue, the M-R command, the M-W 
command and the M-E command. We will wrap things up with 
an example machine language program you can execute in your 
1541 (if you dare!). 

The Memory Commands 

We will start our adventure with the memory commands. Each 
of the memory commands {in fact, ALL of our communications 
with the drive) will be sent over the error channel *15 (I'll 
always use file number 15 in my examples). These commands 
are all covered in your 1 541 manual, but we will focus here on 
their use in programming the disk drive. Let us begin with the 
Memory-Read (M-R) command. The M-R command allows you 
to peek at the contents of the disk drive's internal memory - 
both RAM and ROM. To use this command you simply give the 
address (in lo/hi format) of the first byte you wish to read. If you 
want to read more than one byte, the address must he followed 
by the number of consecutive bytes (up to 255) you wish to 
receive. If you are working from BASIC these parameters must 
be sent as character codes. The general format of the command 

is 

PR]NT#15;M-R"CHR$(lo)CHR$(hi)CHR$(n) 

Once you issue the command to the drive, you can read the 
result over the error channel, via GET*, as character data. Here 
is a useful subroutine which utilizes the M-R command to tell 
weather or not a disk is write protected. You might use this 
routine in your own programs in order to warn the user to write- 



protect the program disk or to unwrite-protect the data disk. 
The routine works by examining bit 4 of location $ 1 COO (7 1 68) 
in your drive's memory. This location is the main control register 
for the 1541. 

400OPEN15,8J5;M-R" + CHR$(0) + CHR$(28) 
410GET#15,A$;A = ASC(A$ + CHR$(0)):CLOSE15 
420WP = AAND 16:RETURN 

If WP = then the disk is write protected. 

The Memory-Write (M-W) command is used to poke data into 
the 154rs RAM. This command is used to set values in various 
memory locations and to transfer programs from the C64 to the 
1541, The general format of the command is 

PRINT#15,"M-W"CHR$(lo)CHR$(hi)CHR$(n)<data>. 

As you can see, this command uses the same parameters as the 
M-R command (you may NOT omit the length parameter) 
except you additionally place the data to be sent on the com- 
mand line. The data may be a single character code or a string of 
up to 34 characters. The following routine will turn the 154rs 
motor on by READING the contents of the main control register, 
SETTING BIT 2 and WRITING the result back to the control 
register. The motor is turned off again by clearing bit 2. 

Turn motor on: 

10 0PEN15,8,15;M-R- + CHR$(0} + CHR${28) 
20GET#15,A$:A = ASC(A$ + CHR$(0)) 
30X = AOR4 
40PRINT#15;M-W"CHR$(0)CHR$(28)CHR$(1)CHR${X) 

60 CLOSET 5 

To turn the motor off, replace line 30 with: 

30X = AAND251 

You may have noticed that both of the routines above work by 
reading or changing a bit in the control register located at $1C00 
in the 1541, Since this is a fairly importajit register 1 will 
interrupt myself for a moment to list what each bit in the register 
does. 
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REGatSlCOO BITS: 76543210 

BIT - Bits and ) are used to move the drive head 
BIT 1 - See example program at end of article. 
BIT 2 - Turn motor on/off 
BIT 3 -Turn red light on/off 
BIT 4 - Write- protect indicator 
BIT 5 - Recording density bit 1 
BIT 6 - Recording density bit 2 
BIT 7 - Sync byte indicator 

Okay . . back lo the memory commands: 

The MEMORY EXECUTE {M-E) command is like a SYS com- 
mand for any disk drive routine in ROM or RAM. Simply give the 
address of the routine in LO/HI format. The following example 
will execute the ROM routine which initializes the diskette in the 
drive. It has the same effect as typing OPENI 5,8,15, T. 

10 0PEN15,B,15:PRINT#15;M-E"CHR$(5)CHR$(203) 
;CL0SE15 



Digging Deeper 

The memory commands are nice for little tricks such as the ones 
in the example programs above. When it comes to running 
"real" iobs in your drive, however, it is often convenient to use 
tiie job queue. Some people tend to be scared off by the mention 
of the job queue, but let me try to explain how jobs are executed 
in the 1541 and you will then see thai using the job queue is 
really just a shortcut lo programmini* the disk drive. 

Allow me lo present three short paragraphs oi background 
material before we jump into using the job queue. 

The 6502 in your disk drive has a split personality. Part of the 
time it is acting as the interface processor (IP) and part of the 
lime it is acting as the floppy disk controller (FDC). For the sake 
of brevity, 1 will just refer to the IP and FDC as though they were 
two completely different processors running at the same time, 
since this is the illusion that the designers of the 1541 intended 
to create. {In fact, in earlier Commodore dual drives like the 
4040 and S050, there were two separate processors - the 154 1 's 
DOS is closely based on the DOS from the early drives. -Ed ) 

The interface processor is primarily responsible for those tasks 
having to do with communication between the computer and 
the disk drive, and between the disk drive and the user. In other 
words, it is responsible for parsing disk commands, transferring 
data over the serial bus and operating the red light on the front of 
your drive. In addition to its communication jobs, the IP is also 
responsible for the "soft" side of file management (ie. allocating 
buffers, opening files, keeping track of the BAM, etc). 

The floppy disk controller, on the other hand, concerns itself 
primarily with those tasks thai are directly related to reading or 
writing to the disk, or which directly control the hardware of the 
drive. These tasks include moving the drive head, coding/ 



decoding OCR data, reading and writing OCR data from/to the 
disk surface, formatting a diskette and various other hardware 
related tasks. (Technical note: GCR stands for Group Coded 
Recording. All data is converted to GCR format before being 
written to the disk surface. The GCR coding scheme insures that 
no data will ever produce bit patterns capable of confusing the 
disk hardware). 

The Job Queue 

Does it sound as though the FDC routines might be complex or 
difficult to use? Well, for the most part, they are. Fortunately for 
us, there is an easy way to get at the FDC routines and that- is 
through the JOB QUEUE, 

About 100 times per second, the FDC scans the job queue to see 
if there is any work for it to do. When you give the drive a 
command, the IP parses it and breaks it up into a series of JOBS. 
It drops the jobs into the job queue and the FDC executes them. 
Bossing the FDC around is as easy as simply dropping a number 
into the job queue. Here's what you need to know: 

The JOB QUEUE is simply locations $00 to $05 in your disk 
drive's zero page memory. We will only concern ourselves with 
the first four positions ($00 lo $03}. Associated with each 
position in the job queue are two bytes that tell the FDC which 
track and sector the job should act on. Also associated with each 
of the first four positions in the job queue is a data buffer that is lo 
be used by the job. I think now would be a good time for a table: 



Job Queue 
Position 

$0000 
$0001 
$0002 
$0003 



Location of 
TR/SE Info 

$0006/$O0O7 
$0008/ $0009 
$O00A/$000B 
$OOOC/$OOOD 



Location of 
Data Buffer 

$030O-$O3FF 
$0400-$04FF 
$050O-$05FF 
$0600-$06FF 



There are only seven job codes to choose from when using the 
job queue. 

HEXCode DEC Code Job Code Description 



$80 


128 


Read a sector 


$90 


144 


Write a sector 


$A0 


160 


Verify a sector 


$B0 


178 


Seek a track 


$C0 


192 


Slam head against end stop 


$D0 


208 


,IMP to start of buffer 


$E0 


224 


Execute program in buffer 



To use the job queue you just have to make three decisions: (1) 
Which Job should I run? (2) Which buffer should it use? (3) 
Which track and sector should it act upon? 

It is important that you realize that the FDC will begin executing 
your job the moment you place the job code into the queue. It is 
therefore important that you place the track and sector informa- 
tion (when required) into the proper position of the TR/SE table 
before dropping a code into the job queue. 
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When the FDC finishes Ihe job you asked it to perform, it writes 
a RETURN CODE in the same job queue position where you left 
the job code. Job codes are all greater than or equai to $80 (1 28) 
and return codes are always less than $80. This distinction is 
how the FDC tells whether a number in the queue is a job 
request or a return code. You can use the return code for two 
purposes. First of all, it tells you the job has completed (when a 
number less than 128 is in the queue) and secondly, it tells 
whether or not the job completed successfully. If the return code 
is I , the job was successfully completed - any other return code 
indicates that the job was not successful. 

The main advantage (and danger) in using the job queue is the 
fact that no CTror checking is done on the track and sector you 
supply in the TR/SE table. This means that you tan read and 
write beyond the normal 35 tracks of a diskette. While I have not 
been too successful in my attempts to write data beyond track 
35 (probalMy because I did a sloppy job of formatting these 
tracks) 1 have had success in READING data beyond track 35. 
The BASIC program called READ ANY SECTOR found at the 
end of this article wilt allow you to read data from any sector of a 
disk from track 1 to track 40. 1 have used this program to read 
"secret" data on some protected diskettes. The program is 
capable of reading ''under" errors and will allow you to view 
data from any sector on your disk whether the sector contains 
ASCII data, screen codes or machine language. The program 
will 'hang\ however, if you try to read a track that has not been 
formatted at all. 

Executing Program* In The Drive 

The last topic I would like to cover in this article is not for the 
faint hearted, it concerns actually programming the drive be- 
yond simply using the job queue. It should be mentioned here 
that any mistakes made at this level of programming could 
easily destroy data on any disk that happens to be in the drive 
and could, in fact, cause harm to your drive itself. 

The main power of the job queue, as mentioned earlier, is that 
you can do normal tasks (reading, writing, etc) without being 
limited by error checking routines. You are still limited, how- 
ever, to the seven jobs listed above. If you want to do something 
a bit more radical, such as writing a new formatting routine, 
creating exotic protection techniques and so on, you will hnd 
that the job queue does not afford you the power that you need. 
You will have to go on to the less- travel led path of programming 
the disk drive. Before you can even begin thinking about 
programming the disk drive, however, you need a complete 
zero-page memory map of the drive and a listing of the ROMs, 
(The Transactor plans to publish Jim Butterfieid's commented 
Disassembly of the 1 54 1 and 1 57 1 ROMs in book form at some 
lime in the near future. If you are impatient, there are several 
other good books currently available as I'm sure every reader is 
aware.) 

As an example of programming The disk drive, I wrote a 
program called DISK DESTROYER. I chose this program be- 
cause it is simple, short and can hardly fail to work. As the name 
implies, this program will destroy whatever disk happens to be 



in the drive when the program is run. The program will not 
physically harm the diskette but will scramble the contents so 
badly that the drive light will not even come on when you try to 
load a directory from it. This program is useful mainly for data 
security. It will completely purge a disk in about 10 seconds 
(compared to a minute and a half to format a disk) and will not 
leave a trace of the original data. This capability can be useful for 
destroying old data disks or for creating a program which can 
only be run once. As an example of the latter, suppose you wish 
to have a friend try out a program you are writing. If you do not 
want your friend to be able keep a copy of the program, you can 
hide disk destroyer in an unused sector on the diskette (see the 
program DEATH SECTOR at the end of this article). At ttie end of 
your boot program you can execute disk destroyer with a 
BLOCK-EXECUTE command and disk destroyer will wipe out 
the disk in a matter of seconds. 

Disk Destroyer 

Disk Destroyer works by stepping the drive head back to track 
one and then calling a ROM routine which effectively destroys 
the track. Disk Destroyer then moves the head to the next track 
and repeats itself until it reaches the ending track. You should 
note that the current track number is stored in location $22 and 
that the drive head is moved by rotating bits 1 and 2 of the main 
control register ($1 COO), 

At the end of this article you will find a BASIC listing called 
DEATH SECTOR and the commented assembly language source 
code for Disk Destroyer. DEATH SECTOR will write Disk De- 
stroyer onto any sector of your diskette in a form which can be 
executed with the Block-Execute (B-E) command. After the 
sector is written, DEATH SECTOR will print a command line on 
your screen which can be used to destroy the disk. If you wish to 
destroy the disk immediately, move your cursor to the line 
which DEATH SECTOR just printed and hit return. If you don't 
wish to destroy the disk right now, write down the line that 
DEATH SECTOR printed. This command line can be used at any 
time to destroy your disk in a matter of seconds. The format of 
the BLOCK-EXECUTE command to destroy a disk which con- 
tains a death sector is as follows: 

OPEN15,8,15:OPEN2,8,2;#0':PRINTff15, 
■B-E"2;0;T;S:CLOSE2:CLOSE1 5 

T and S are the track and sector where DISK DESTROYER is 
hidden on the disk. Note: It is very important that you open 
buffer "^O" rather than the usual OPEN2,8.2;*". 

Warnings & Hints 

Although I don't wish to scare off any potential 1541 program- 
mers, you need to understand, before attemphng to program 
your drive, that it is possible to seriously harm your drive if you 
aren't careful {and perhaps even if you are) with your work. 
Although the programs presented here have been tested on my 
equipment, you should be careful the first time you run them on 
yours in case you made an error in typing or in case an error was 
made in typeseUing this article, in any case, neither I nor The 
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Transactor can accepi any liability for damages of any type 
resulting from the use or misuse of these routines. Therefore you 
are well advised fo be certain that you understand what is going 
on before using any programs presented with this article. 

Here are some guidelines which may save you a hefty repair bill 
in case things DO go wrong when you are programming your 
disk drive. First of all. keep your hand on the disk drive's power 
switch when testing a program. TURNING OFF THE COM- 
PUTER WILL NOT STOP THE PROGRAM EXECUTING INSIDE 
THE DRIVE. You must turn the drive itself off to slop it. 
Secondly, if something DOES go wrong and the drive doesn't 
seem to work properly try typing 

OPEN15,8,15,'|-:CLOSE15 

while the drive's door is open and no disk in the drive. Then put 
a disk that you know to be good (but make sure you have a 
backup of the disk) into the drive and see if the drive can read it. 
It is quite likely thai this will fix any problems you may 
encounter provided you have a quick hand on the drive switch. 

In wrihng and testing Disk Destroyer, i made two mistakes - one 
that sent the drive head off searching for track 1 00 and another 
whicfi caused it to try to step backwards 255 tracks. Neither of 
these errors caused any damage to my drive although the 
repeated knocking caused by the drive head trying to move 
outward 255 tracks could have sent me to the repair shop if I had 
not quickly turned off the drive when I heard the buzzing .sound 
of the drive head hammering against the end stop. The attempt 
to find track 100 simply required me to use the line of code given 
above to initialize the drive - pulling the read/write head back 
into familiar territory. 

One last word of wisdom is to turn off your stereo, drive fan or 
whatever noisy appliance happens to be running while tesUng 
your drive routines since sound is your key indicator of some- 
thing going wrong. Each time the head moves by one track, you 
should hear a .slight clicking sound. If you hear it move more 
than 40 tracks you know something must be wrong. Likewise, if 
you hear the head slamming against the end stop you know to 
switch oft the drive FAST. 

While you should be aware of the potential to damage your 
equipment, it is my experience that a quick hand on the drive's 
power switch should make programming your disk drive almost 
risk free. 



Listing l:This program will create a "death sector' on the track 
and sector of your choice on the disk currently in the drive, and 
show you the command required to activate it. When the 
command is given at any time when that disk is in the drive, the 
contents of the disk will be completely destroyed within ten 
seconds. This provides an easy way to destroy sensitive data in a 
hurry. (We call it The Oliver North Special'.) 

The actual program that the drive executes to destroy the disk 
can be seen in assembler form in LisUng 3. 



CK 

OM 

FP 

AM 

CK 

EN 

JA 

PG 

IH 

LC 

CN 

AB 

PH 

MM 

FD 

NG 

KM 

NF 

DK 

DE 

OC 

GC 

IE 

00 

Kl 

KM 

EC 

HF 

GJ 

CI 

GA 

IH 

ID 

EJ 

CD 

DM 

HJ 

FF 

IC 

PN 

BP 

IJ 

DH 

HL 

HD 

MK 

OG 

DG 

CI 

10 

NA 

PB 

HK 

BJ 

KA 

PF 

KK 

KC 

EM 



1 00 rem*****"*'***********'*'**** **#»#♦**#* 



110 rem 
120 rem 



death sector 
trank e. digioia 



1 30 rem*'*'********* ************* *#*#**** 



1 40 rem 
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360 data 198, 
370 data 253, 
380 data 176. 
390 data 109, 
400 data 141, 
410 data 3, 169, 
420 data 28,202, 
430 data 232, 138, 
440 data 0, 28, 



4,169, 

32, 102, 

34, 32, 

34.201, 

109, 3, 



3, 
62, 



1 50 rem**************** *******#****:#■(.•* 

160 data'warning!!! this program will " 

1 70 data'create a sector on your disk ' 

1 80 data'which will cause the disk to " 

1 90 data'selt-destruct if b-e command" 

200 data'is issued on that sector. " 

21 rem* ♦»*************•*****#*#**»*♦*# 

220 read a$,b$,c$,d$,e$:rem read warning 
230 r$ - chr$(1 3);prJnt a$r$b$r$c$r$d$r$e$ 
240 gosub570:rem verify disk name 
250 open2,8.2/#0":rem open buffer 
260pMnt#15,'b-p";2;0:remstartofbuf 
270fori = 1 to146:readml:ck = Gk + ml 
280 print#2,chr$(ml);: next: rem fill buf 
290 data 234, 234, 234, 169, 1, 133, 6, 169 
300data 0,133. 7, 173, 142, 3,174, 143 
SlOdata 3, 172, 144, 3, 141, 0, 3, 142 
320 data 1, 3, 140. 2, 3, 169,224, 133 
330 data 0,165, 0, 48,252, 96,165, 34 
340 data 240, 4,201, 36, 144, 
350 data 133, 34, 32,102, 3, 

34,208,246,230, 
32, 0,254, 165, 
11,230, 34, 32, 

76, 62, 3, 173,141, 
3,141, 63, 3,141, 
1, 76,105,249, 174, 
76. 113, 3.174, 0, 
41, 3, 141,145, 3,173 
41,252, 13,145, 3,141 
450 data 0, 28,160, 5,162,255,202,208 
460data253, 136,208, 250, 96,234, 76, 38 
470 data 3, 

480 if ckOI 4432 then print'bad data":stop 
490 print#15,"u2'i2;0;tis;rem write bik 
500 prinfuse this line to erase disk:* 
510 print '[down]open15,8,15:open2,8,2,'; 
520 print chf${34)"#0"chr$(34)":print#'; 
530 print ■15,"chr$(34)"b-e"chr$(34); 
540 print '2;0;";t;rs;';close15:close2" 

550 closel 5;close2:end:rem finished! 

560 rem ************■*■♦■#**■****•****♦ + #*** 

570 rem ***** read disk name *♦*•* 

580 rem ****»**•**•*#**#****•#***♦*#»■#*# 

590openl5,8,15,"i0":rem refresh bam 
600 rn$ = chr$(1 44) 4- chr$(7) + chr$(1 6) 
610 prfnl#15,"m-r"rn$:rem point to name 

620 fori = 1to16.get#15,p$:n$ = n$ + p$:next 

630 prlnt'[2 down]drsk name:";n$ 

640 input'[down]write death sector";yn$ 

650 if lefl$(yn$,1)<>-y then end 

660 print"[down]where do you want death sector?" 

670 inpuftrack "ilMnpufsector 'iS 

680 return 



46 

3 

163 

36 

32 
3 

64 


28 
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Listing 2: Examine the data in any sector on a disk, including 
those bevond the normal maximum of 35. 



CK 

AK 

AB 

AM 

CK 

EN 

EL 

OC 

OM 

LK 

LN 

CO 

PE 

PA 

CN 

KL 

NC 

OM 

IN 

PB 

BE 

BB 

IB 

EN 

KD 

II 

00 

AN 

Bl 

EM 

PA 

IN 

CG 

EN 

DC 

AE 

BE 

DD 

DB 

NH 



1 00 f cm ***»■f»■*■**■^'*-•**•**"*»*•*+'^****#* 



110 rem*** 
120 rem*** 



read any sector 
by frank digioia 






1 30 rom **#***************■♦■******»■**»■*** 



1 40 rem 
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1 50 rem *♦****♦**•***♦****♦***••»******* 

160openl5,8,15,"i0" 

170t=1:s=1:x = 0:dima(255) 

1 80 ts$ = "m-w' + chr$(6) + chr$(0} + chr$(2} 

1 90 s]$ = "m-w' + chr$(0) + chr${0} + chr${1} 

200'inpuf[clr]track";t 

210ift<1 ort>40then200 

220 inpufsector";s:if s<0 then 220 

230 pnnt#15,ts$;chr$(t)chr$(s) 

240print#15,sj$;chr$(176):remdoseek 

250 gosub 420:rem await completion 

260 printff15,ts$;chr$(t)chr$(s) 

270 print#1 5,sj$;chr$(1 28):rem do read 

280 gosub 420;rem await completion 

290print#15,"m-r"chr${0)chr$(3)chr$(255) 

300prinf[clr]Mori = 0to255:get#15,a$ 

310a(i) = asc(a$-i-chr$(0)):printa$,:next 

320 print" hit any key for screen codes" 

330 poke198,0:wait19e,1:geta$:print"[clr][down]" 

340 tori = 0tG255:poke1 024 + i,a(i):next 

350 print"[5 down]hit a key for ascii codes" 

360 poke198,0:wait198,1:geta$:prinf[2 down]" 

370 fori = 0to255;pnnta(i)::next 

380 print#1 5, "iO'iclosel 5:end 

390 reni=**** 4=***** + ** + #*:f# *#****#* + #*### 

400 rem wait for activity complete 

410 rem***'*'*****'*'**'*'******'*'^*********** 

420 fori= 1to3000:next:rem initial delay 

430print#15/m-r-chr$(0)chr$(0) 

440 get#1 5.a$:a = asc(a$ + chr$(0)) 

450 if a = 1 76 then prinfseeking track" 

460 if a= 128 then print"reading sector* 

470x = x + 1:ifa>127andx<11 then 420 

480ita = 1 then print"okay":x = 0:return 

490print"error1l!";print#15,"u:":stop 



Listing 3; Assembler source code for the drive- resident pro- 
gram to destroy a disk. This code is written into the 1 54 1 's RAfvl 
by 'Death Sector' in Listing 1 , 



KN 


TOO 


L 
1 






HB 


110 


.disk destroy er/src 




00 


120 


L 
P 






JJ 


130 


; frank d 


igioia 




HI 


140 


;09/28Ve6 




MA 


150 


: 






KA 


160 


- = $0300 


;nolTelocaiabe' 


AC 


170 


1 






CP 


180 


entry 


nop 




HI 


190 




nop 




BJ 


200 




nop 




CE 


210 




Ida #$01 


, track 1 


Gl 


220 




sia $06 


;sei track 


NJ 


230 




Ida #$00 


; sector 



PM 


240 




sla $07 


,set sector 


OK 


250 




Ida jmpins 


;copyjmpinstrto 


EE 


260 




Idx jmpins +1 


;entry point, since 


DC 


270 




Idy jmpins + 2 


;execulion wi I jump 


KG 


280 




sta entry 


;to entry as soon as 


LB 


290 




stx entry + 1 


;lhe $eO ts p aced in 


BP 


300 




Sty entry + 2 


,the ob queue. 


CH 


310 




Ida #$eO 


Job code = execute 


GF 


320 




sta SOO 


,pace in ob queue 


PH 


330 


wail 


da SOO 


;giveita!ewmii- 


FB 


340 




bmj wait 


; seconds to kick in. 


KE 


350 




rts 




ON 


360 


9 






AP 


370 


purge 


= * 




E 


360 




da $22 


,get current track 


HF 


390 




beq - + 6 


;zeroprintpnniprint 


EJ 


400 




cmp #$24 


, is it bigger than 36 


GJ 


410 




bcc back 


;no/go ahead a move 


KB 


420 


L 
P 






JP 


430 




Ida #$2e 


;set track to 46 


DD 


440 




sia $22 


; that should fix it 


ID 


450 


1 






CK 


460 


back 


± V 


;step head back to Iraki 


IB 


470 




jsr Step 


.step head back 1/2 trak 


cc 


480 




jsr step 


,step head back 1/2 trak 


HF 


490 




dec $22 


;decr current track 


OG 


500 




bne back 


;unti at track zerc 


II 


510 




inc $22 


;sel track to 1 


OH 


520 


i 






NA 


530 


wipe 


jsr $fda3 


;wipe track 


JO 


540 




isr $ eOO 


;set read mode on 


OC 


550 




da $22 


,get current track 


BK 


560 




cmp #36 


, bigger than 35prinl 


FL 


570 




bcs finish 


; done/no prob em 


LP 


580 




inc $22 


;bump track 


AM 


590 




jsr stepb 


;move 1/2 track 


KM 


600 




. sr stepb 


;move 1/2 track 


DE 


610 




jmp wipe 


jwipe next track 


CO 


620 


4 
1 









630 


finish 


= « 


;c!eanupandgetout 


JE 


640 




da nopins 


igetnopinstr 


J 


650 




Sla wipe 


;render code harmless 


DD 


660 




sta wipe + 1 




PD 


670 




sta wipe + 2 




FC 


680 




Ida #S01 


;set return code 


PG 


690 




jmp St969 


;main error routine 


CD 


700 


1 






GA 


710 


step 


■= * 


,step head back 1/2 trk 


D 


720 




Idx $1cOO 


:get control reg 


PH 


730 




dex 


; rotate low order bits 


KJ 


740 




jmp stepb + 4 




EG 


750 


9 






AP 


760 


stepb 


= * 


;step head frwd 1/2 trk 


FL 


770 




dx SicOO 


;getconlro reg 


GN 


780 




inx 


, rotate ow order bits 


HG 


790 




txa 


;putin.a 


EK 


800 




and #$03 


;isoate ow order bits 


DG 


810 




sla temp 


jsave it 


HC 


820 




Ida $icO0 


igetcontro regagam 


EG 


830 




and #$fc 


; clear low order bits 


OP 


840 




ora temp 


,set ower order bits 


PE 


850 


J 


sta $1cOO 


;sel coniro reg 


CN 


860 


> 




- 


HJ 


870 




fdy #$05 


;timing loop iterations 


FH 


880 




Idx #$ff 


[inner loop bming 


GM 


890 


delay 


dex 


;a1 ow head to sett e 


JH 


900 




bne delay 


jinner oop 


JG 


910 




dey 


;ouler loop 


JF 


920 




bne deay 


jccntinue 





930 




flS 




CC 


940 


1 






FN 


950 


nop ins 


nop 


;this is data 


AN 


960 


mpins 


jmp purge 


[this IS data 


JA 


970 


temp 


byte $00 


[working storage 
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Auto Transmission 
for the Commodore 64 

This program developed out of necessity. Over a period of time I have 
collected programs that convert Basic programs to make them auto- run - 
when you LOAD them with ',8,r they will automatically RUN upon 
completion of the LOAD. Some of these programs - Jim ButterfieJd's 
'LockDisk' is one - aiso alter system vectors in such a way as to cause the 
prc^ram lo re-RUN whenever READY mode occurs (due to an error, or the 
program ending). 

This is a good'feature in most cases, but not always. Suppose you write a 
nice program. You RUN it and test it and it seems to be all you intended it lo 
be. So you LOAD up your favorite auto-run creator and soon your 
program has auto-run capability. Well, you no longer need the original 
Basic program, so you scratch it in favor of keeping only the auto-run 
version. If you're like me, sooner or later you'll want to make some 
changes to thai prt^ram. Sorry, it's an auto-run program now. If you 
LOAD it \8,r it will start running on its own. Depending on built in 
safeguards, you may or may not be able to stop your program for editing 
purposes. If you LOAD it \S' the program remains unlistable. This is the 
problem I encountered. 

My first approach lo a solution was to look through all of my Commodore 
related magazines for a program to reverse the auto-run process. No luck 
there. It seemed apparent I would have to tackle the problem from the 
ground level ( went through each of my auto-run creating programs, 
analyzing Basic listings and disassembling machine code. My efforts 
turned up similarities in ALL of the auto-run creating programs. 

First, lower memory vectors are written to the disk, with changes that will 
later implement the auto-run feature. Next, all of the remaining memory 
between the vector table and the start of Basic, including screen memory, 
is written lo the disk. Finally, the Basic program itself is also written. This 
explains why the program is unlistable when it is LOADed \S': the lower 
memory vectors are at the start of Basic program space. It also explains 
how auto-run programs are implemenled. When the program is loaded 
',8, 1 ', the program starts LOADing over the top of the vector table, making 
its own changes in the process. The original Basic program falls right back 
where it originally sat. Upon returning to READY mode, the altered 
vectors cause it to begin running. 

r 

Something else of importance: No matter where in memory the bad 
begins, its address is recorded on the disk with the program. Comparing 
this address with the start of Basic at 2049 (Basic programs start loading at 
2049) the difference will equal the number of bytes separating the 
beginning of an auto-run program with the original undoclored version. 

Now to write a utility to do the job. First, INPUT the LOADing address of 
the auto-run prc^ram and subtract that from 2049. GET that many bytes 
with a FOR-NEXT loop. Next, create a new program on disk by first 
writing a CHR$(1 ) and a CHR$(8) (the new LOAD address in low byte/high 
byte format) then copying the Basic portion of the aulo-run file one byte at 
a hme until the whole file is transferred. 

Now for the test. 1 wrote a one line program and saved it lo disk. Then 1 
used all of the auto- run creator programs I had on it. The lest was to see if 
my program could convert each of these auto-run programs back into 
their original Basic format. The test was a successl 



Doug Resenbeck 
Rockf ord, IL 

1 hope all of you will find this utility as useful as I have. 

C64 Aulo Transmission: 
Remove Auto-RUIV from BASIC programs. 



FA 

BK 
EF 
LI 
ND 
DA 
JA 
GA 
EL 
PG 
PF 
PB 
ID 
GD 
PF 
BM 
EE 
FH 
BM 
KP 
BM 
DC 
IH 
LD 
LK 
BO 
BE 

LK 
LF 

KM 
BM 
LC 
EL 
KE 
ME 
GE 
DH 
OF 
OK 
CG 
fC 
OH 
CP 
PH 
10 
HN 
PI 
FJ 
Ml 
KO 



10 rem • this program changes auto-run 

20 rem * programs back to their 

30 rem • original basic format 

40 rem * written by doug resenbeck 1 0/86 

50 printchr$(1 47}chr$(1 7)chr$(1 7) 

60 print" name of basic aulo-run program" 

70 print:inputar$:t = len{ar$) 

80 gosub440 

90if3 = 1thens = 0:golo50 

100printchrS(147)chr$(17)chr$(17) 

1 1 print" new name with auto-run removed" 

120 print:inputua$:t = len{ua$) 

130gosub440 

140ifs = lthens-0:gctc100 

1 50 printchr$(1 47)chr$(l 7)"auto-run "arS 

160printchr$(17)'to" 

1 70 printchr$(1 7}'un/auto-run "uaS 

1 80 printchr$(1 7}'please waif 

190open2,S,2,ar$ + \p,r" 

220 open8,8,8,ua$ + ".p.w" 

250geti*2,a$,b$ 

260 ita$ = " lhena$ = chr$(0) 

270 a = asc(a$) 

280ifb$ = -thenb$ = chr$(0) 

290 b = asc(b$):c = a + 256*b;d = 2049-0 
300 ifd>0then320 

310 prinlchr$[1 47)chr$(1 7)"program is not a 

basic auto-run prog ram ■:golo380 

320 forx = 1 tod :get#2,a$; next 

330print#8,chr${1); 

340 printi^8,chr${8); 

350get#2,a$:sw = st:ifa$ = ""thena$ = chr$(0) 

360print#8,a$,:ifsw = 0then350 

370pnntchr${147)chr$(17)"done' 

380clcse2:close8 

390gosub480 

400 i(e>0then500 

410 prlntchr$(17):inpufmore";n$ 

420 ifn$ = y then50 

430 end 

440ift<17thenrelurn 

450 printchr$(17):prinffilename too long" 

460 forx = ltol500:nexl;s = 1 

470 return 

480close15:open15,8,15 

490input#15,e,e$,tr,s:close15:return 

500 print'disk error #";e 

510printe$ 

520prinftrackMr 

530 prtnfsector";s 

540close2:close8 
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Common Code 



Jack R. Farrah 
Cincinnati, Ohio 



...It sounded like a Job for THE COMPUTER! 



The Scenario: 

That nifty machine language program you've labored over for 
weeks is fmally complete. A natural for submission to The 
Transactor, you think. But wait! Your programming technique 
(perhaps like mine) is a bit long winded- Written and debugged 
in sections that were thought out independently, it works but it's 
extremely long. What if it's too long? Would it have a belter 
chance if it were 100, 200, 500 bytes shorter? Framicaily you 
scan the code, looking for things to eliminate, shorten or 
combine. No good! Your eyes keep glazing over at the task. After 
all, you ve been at this for weeks and the thought of a major re- 
write is not pleasant. 

This is not fiction friend. It happened to me. After all the 

searching, all the cutting out of title screens, help screens and 

superfluous user prompts, I still had over 3500 bytes of code. In 

desperation my mind turned to subroutines. Maybe, amongst 

these thirty pages of assembly, there were identical sections of 

code that I couid consolidate into subroutines to shorten the 

program. But how to find them? It sounded like a job for THE 
COMPUTER! 

The Solution: 

A typical, knee-jerk reaction from a programming buff you say? 
Well, perhaps, but there's nothing that pumps me up more to sit 
down and write a program than to perceive a tangible need. 
More so if its my own! Common Code is my answer to this need. 
Here's what it does. After loading and running, the program 
asks you for a starting address in memory, in hexadecimal (do 
not include S's). Next, an ending address. Enter <RETURN> 
after each input. Then you are asked whether you want the 
program output to go to the screen or your printer. Enter "s" or 
"p". If you are specifying a printer, it must be turned on before 
hitting the "p". Finally, you are given the opportunity to specify 
how many bytes of identical code you want the program to find. 
Any number between 00 and FF (2 and 255} is acceptable. An 
00 or 01 entry will exit you from the program. The default 
setting is 7 bytes and is displayed at the prompt. Enter <RE- 
TURN> only to accept the default. 

From here on the program begins its search and display rou- 
tines. Each program byte is taken in turn as the beginning of a 
potential subroutine. It is checked against the following bytes in 
the program. If a full match is found, the start address is printed, 
then each matching group's start address is printed indented 
below it- There's no requirement that you search only between 
the "real" start and end of your program. You can limit the 



search to those areas where you want to concentrate. Assuming 
your program has text and or data tables at the beginning or 
end, enter addresses that omit those areas of code. 

The checking routines run fast and depending on the program 
length, the byte length being checked and the number of 
matches found, the output to your screen may flash by too 
quickly. You can pause the listing (and the search) by hitting the 
space bar Restart by hitting it again. Be aware that the space bar 
is only checked during the printout routine. 

When complete, the default byte count is reinstated, the printer 
file closed and you are returned to BASIC with a READY prompt. 
All that's left is for you to check the code from an assembled 
program printout, against the matching groups. Pick the viable 
subroutines and revise your code. 

The Works: 

Common Code is written to reside in the normal BASiC portion 
of memory so that is has the least possibility of memory conflict 
with the machine language programs you will check with it. The 
functioning of the program is relatively straight forward. There 
are four main addresses tracked and or updated during the 
course of execution. The Start Address you enter is the begin- 
ning byte to try and match. The Check Address is the first byte 
where a match is attempted. Check is located initially at Start 
Address + N bytes. N is the value youVe specified for the byte 
length match. Any address closer to Start would not allow the 
requisite length in the first group. If a match is found at Check, 
N-1 more bytes are checked. If they match, we print the 
addresses. Whether or not they match. Check is incremented by 
I and we start again. After the entire program has been checked 
against Start, Start is incremented by I and the whole thing 
happens again! You4l notice the output speed up as we move 
through the program, because the farther Start moves towards 
the end, the shorter the length of bytes its must check becomes. 

Two addresses at the end are used to determine when one pass 
or the whole process is complete. End Check is your program's 
ending address minus (N-2). This is the addrt^ss from which an 
inadequate number of bytes remain to become a N length 
subroutine. Each time Check is incremented it is compared with 
this address. If they match, its time to raise the Start Address by 
one, re-formulate Check and begin again. Match Check is N 
bytes back into the program from End Check. Each time Start is 
incremented it is compared with Match. If they are the same, 
there are an insufficient number of bytes remaining in the 
program to get two matching groups. At this point we're done. 
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The Caveats: 


HP 


1260data255, 232, 208, 245, 162, 0, 32, 21 




IB 


1270data 11, 32,165, 10.224, 5,176, 13 


Common Code will provide you with all the information you 


: BF 


1280data202, 224, 255, 240, 29,189,130, 11 


need to identify existing subroutine material within your pro- 


FB 


1290dala 32,191, 10,144,243,169, 13, 32 


gram, but: 


JA 


1300 data 210, 255, 32, 26, 11,162, 0,189 




Dl 


1310 data 76, 10,240,197, 32,210,255,232 


1. Ifyou've written different code in two places in your program 


OB 


1320data208, 245, 162, 0, 32, 26, 11,189 


that performs the same function, Common Code won't find it 


KB 


1330data130, 11, 32,179, 10, 10, 10, 10 


(Obvious, yes, but I thought I'd mention it.). 


KJ 


1340data 10,157,130, 11,232,189,130, 11 


2. Because the program leaves no stone unturned in searching 


MG 


1350 data 32,179, 10,224, 3,240, 10, 24 


for matching groups, more stones than you need are the 


GD 


1360 data 109, 130, 11,141,130, 11,232,208 


result. Not a 1 matches will occur on valid boundaries. A 


ML 


1370dala222, 24,109,132, 11,141,132, 11 


match may begin with an operand rather than an opcode. If 


GN 


1380data173, 138, 11,208, 42,173,130, 11 


you are searching for a small byte siring length and the 


Gl 


1390 data 133, 252, 173, 132, 11, 133,251, 169 


prt^ram contains common sections of greater length, output 


EL 


1400data 13, 32,210,255,141,138, 11,162 


will show up as multiple groups, each separated by one byte. 


CP 


1410 data 0,189, 89, 10,240, 6, 32,210 


3. Some groups will contain branches or jumps outside of them- 


HJ 


1420data255, 232, 208, 245, 162, 0, 32, 21 


selves and will therefore be unusable. 


HC 


1430 data 11, 32,165, 10, 76, 45, 8,173 


4. Finally, some usable groupings may, to the reader of your 


OP 


1440data130, 11,141,137, 11,173,132, 11 


source, make the program intent less clear. Common Code 


KG 


1450data141, 136, 11,169, 13, 32,210,255 


will provide you with opportunities. You must decide where 


DL 


1460 data 162, 0,189,110, 10,240, 6, 32 


clarity takes precedence over brevity. 


MM 


1 470 data 21 0, 255, 232, 208, 245, 32, 228, 255 




PO 


1480 data240, 251, 201, 80,240, 6,201, 83 


How did Common Code perform on my ong program? 1 was 


PM 


1490data208. 243, 240, 3, 32,214, 10,162 


abe to achieve a 10% reduction in program length {around 350 


FN 


1500 data 0,189,143, 10,240, 9, 32,210 


bytes). Don't taiie this as a typical result in applying this utility. 


EP 


1510 data 255, 232, 208, 245, 76, 62, 8, 32 


Your results depend entirely on what's in your program. Good 


CD 


1520 data 21, 11, 32,228,255,240,251,201 


hunting! 


CB 


1530 data 13,240, 46, 32,210,255, 32,191 




CE 


1540data 10, 32,179, 10, 10. 10, 10, 10 




NP 


1550 data 141, 141, 11, 32,228,255,240,251 


Common Code: Creates ML module on disk 


GD 


, 1560 data 32,210,255, 32,191, 10, 32,179 




GN 


1570data 10 24 109 141 11 201 2 144 




lA 


1 000 rem save'0:common code.gen',8 


FK 


1580 data 203, 141,139, 11,169, 13, 32,210 




KJ 


1 01 rem a ocate & display uti ity to 


AB 


1590data255, 32, 26, 11,169, 13, 32,210 




CG 


1 020 rem find identical code sequences 


FG 


1600data255, 173, 139, 11, 56,233, 2,141 




IJ 


1030 rem in machine language programs 


OM 


1610 data 141, 11,173,136, 11, 56,237,141 




El 


1040: 


NL 


1620data 11,141,136, 11,144, 35,173,136 




MO 


1 050 rem this program wi create 


PE 


1630data 11, 56,237,139, 11,141,134, 11 




BC 


1 060 rem a load and run module on 


PP 


1640dafa144, 29,173,137, 11,141,135, 11 




GK 


■ 1070 rem disk called 'common code' 


ML 


1650data165,251, 24,109,139, 11,133,253 




GF '■■ 1 080 rem 


DN 


1660datal65, 252, 105, 0,133,254, 76,120 




LG 


1090forj = 1 to910:feadx 


EC 


1670data 9,206,137, 11, 76, 71, 9,173 




BO llOOch-ch + x: next 


IE 


1680 data 137, 11,233, 1, 76, 86, 9,160 




KD 1 1 10 if ch<>981 56 then prinfchecksum error' 


PH 


1690data 0,177,251,209,253,240, 65, 24 






: end 


DK 


1700 data 165, 253, 105, 1, 133,253, 165,254 




FB 


1120 print 'data ok, now creating fi e': print 


HI 


1710 data 105, 0, 133,254, 165,253,205, 136 




C 


1130 restore 


GD 


1720data 11,208,228,165,254,205,137, 11 




DO 


1140open8,8,8.'0:commoncode,p,vi'' 


DF 


1730 data 208, 221, 24,165,251,105, 1,133 




. CP 


1150pnnt#8,chr$(1)ohr${8); 


GM 


1 740 data 251 , 1 65, 252, 1 05, 0, 1 33, 252, 1 62 




BL 


1 1 60 for] = 1 to 910: readx 


LP 


1 750 data 0, 1 42, 1 40, 11,1 65, 251 , 205, 1 34 




CB 


1170prtnt#8,chr$(x), : next 


DD 


1760 data 11,208, 10,165,252,205,135, 11 




El 


1 1 80 c ose 8 


JC 


1770 data 208, 3, 76,118, 11, 76, 89, 9 




FO 


1 1 90 print 'prg file 'common code' created, . . 


HL 


1780 data 162, 0, 160, 0,232,236,139, 11 




KK 


1 200 print 'this generator no longer needed. 


CB 


1 790 data 240, 1 0, 200, 1 77, 251 , 209, 253, 240 




IN 


1210 rem 


GE 


1800data243, 76,128, 9,173,140, 11,240 




K 


1220data 11, 8, 10, 0,158, 50, 48, 54 


BP 


1810 data 37, 32,237, 10,169, 32, 32,210 




00 


1230 data 49, 0, 0, 0,169,147, 32,210 


MM 


1820data255, 32,210,255,169, 36, 32,210 




HC 


1240data255, 162, 0, 142, 138, 11, 142, 140 


OF 


1830data255, 160, 0,192, 2,240, 9,185 




DA 


1250data 11,189, 35, 10,240, 6, 32,210 


MG 


1840 data 253, 0, 153, 141, 11,200,208,243 
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1 


BO j 1850 data 32. 94, 11, 


76, 128, 


9, 169. 13 


MN 


1060 ;in machine language programs for use 


j 


10 


1860 data 32,210,255, 


169, 36, 


32,210,255 


CN 


1070 ,aspossibe subroutines 






CG 1 1870 data 160, 0,192, 


2, 240, 


J F 

9, 185,251 


CP 
CG 


1080 .tested program to be in memory, 
1090 ;aH user inputs in hex. 




BC j 1880 data 0,153,141, 


1 1 , 200, 


208,243, 32 


PF 


1100 ; screen or printer output 






PJ 


1890data 94, 11,169, 


1,141, 


140, 11. 76 


DP 
F 


ino .spacebar pauses listing 
1 120 ■ » constants < 






MK 


1900 data 21 8, 9, 32, 


32, 32, 


18, 67, 79 


Nl 


nSOchrIn = Sffcf 


;get muJt. char, in put 




AB , . , ., 


1910 data 77. 77. 79. 


78, 32, 


67, 79, 68 


NC 


1140Ghroul = $ffd2 


iprintto device 




GG ; 1920 data 69, 146, 13, 


13, 83, 


84, 65, 82 


KO 
EE 


nsOgetin = $ffc4 
ll60stadd = Sfb 


;gel sing e char 
; star I address 




PA 


1930 data 84, 32, 65, 


68, 68, 


82, 69, 83 


01 


11 70 ckadd = $fd 


; check address 




IP 


1940 data 83, 32, 73, 


78, 32, 


72, 69, 88 


GG 
PL 


1 1 80 sellfs = Sffba 

1t90se1nam = Jffbd 


;sel log file 
; name file 




M 


1950 data 32, 13, 0, 


73, 78, 


80, 85, 84 


ED 


1200 open = SHcO 


;open tile 




ON 


1960 data 32, 69, 82, 


82, 79, 


82, 13, 


OE 
EF 


1210 close = SHc3 
1220chkout = $ffc9 


;closefile 
.set outDut fi e 




CF 


1970 data 69, 78, 68, 


32, 65, 


68. 68, 82 


CG 


1230clrchn = Sffcc 


; restore defauts 




BD 


19a0data 69, 83, 83, 


32. 73, 


78, 32, 72 


CA 


1240* = $0801 


;2049 




GA 


1990 data 69, 88, 32, 


1 

13, 0, 


1 1 ' 

79, 85, 84 


LK 
HB 


1250 .word Iwobrk 
1260 byte 10,0 


; forward pointer 

.line number 




HC 


2000 data 80, 85, 84, 


32, 84, 


79, 32, 18 


DD 


1270 b/te$9e 


;"svs' keyword token 




LN 


2010 data 83, 146, 67, 


82. 69, 


69, 78, 32 


DH 

AL 


. 1280 asc-206V 
1 290 hrk 


;sys address 




NK 


2020 data 79, 82, 32, 


18, 80, 


146, 82. 73 


r h ^^ 

PL 


' ^— *»■ *^ fiJn 1 \ 

1300fwobrk .wordO 






IF 


2030 data 78, 84, 69, 


82, 13, 


0, 66, 89 


JA 


1310 Ida #147 


.clear screen 




HJ 


1 J 1 

2040 data 84, 69, 32, 


76, 69, 


1 ^^ ^ 7 ^ ^ 

78, 71, 84 


PR 
IK 


1320 jsr chrout 

1330 begin dx #0 






PF 


2050 data 72, 32, 73, 


78, 32, 


72, 69, 88 


PJ 


1 1340 six infig 


;c ear fags 




CB 


2060 data 13, 55,157, 


0, 32, 


207,255,201 


JN 

fO 


1350 six mlchflg 
1360 ;"ge1userstarTaddress'' 






AB 


2070 data 13,240, 6, 


157,130, 


1 1 , 232, 208 


HF 


1370 tm Ida title, X 


;print prog, name 




FF 


2080 data 243, 96,201, 


58, 176, 


4, 56,233 


Nl 


1380 beq start 


;and start add. 




LJ 


2090 data 48, 96, 56, 


1 1 

233, 55, 


1 1 

96,201, 71 


EM 

EF 


1390 jsr chrout 
1 400 inx 


.input message 




EE 


2100 data 176, 14,201, 


65, 176, 


8,201, 58 


GB 


1410 bne till 






NL 


2110datal76, 6,201, 


48,144, 


2, 24, 96 


MD 

JK ■ 


1420 star! dx #0 
1 430 isr cron 


;set index 
jblink cursor 




LH 


2120 data 104, 104, 76, 


62, 8, 


169, 7, 162 


CE ■' 1440 jST get 


;get address 




OA 
GK 


2130 data 4,160,255, 
2140 data 32, 189,255, 


32,186, 
32,192, 


255,169, 
255,162, 7 


EA 
IN 

NL 


1450 check cpx #5 

1460 bcs error 
1470ck1 dex 


;">4 characters'^ 

;only want 4 

;resetfor crcourfled 




HK 


2150 data 32,201,255, 


96,169, 


0,141,138 


EH 1 1480 cpx #255 


;only after 4 




FN 


2160data 11,165,203, 


201, 64, 


r 3 

240, 23,201 


KL 1490 beq convert 
CD 1500 da hxadd.x 


;make binary 
;get hex ascii 




CK 


2170 data 60,208, 19, 


173,138, 


11,208, 19 


OA 1510 jST eval 


; check if valid 




FE 


2180data165, 203, 201, 


64,208,250,169, 1 


GO 
01 


1520 bcc cUA 
1530 ;-error message loop' 


; ok, get next char. 




DP 


2190data141, 138, 11, 


76, 242, 


10,173, 138 


GK 


1540 error Ida #$0d 


;cr 




HM 


2200 data 11,208,222, 


96,169, 


0,133,204 


FO 


1 550 |Sr chrout 






AB 


2210data 96,169, 1, 


r 1 

133.204, 


96,162, 1 


IL 
JG 


1560 jsr crot 
1570 Idx #0 


;lurn off cursor 




AJ 


2220data160, 0, 189, 


141, 11, 


41 , 240, 74 


FE 


1 580 eri fda ermess.K 


. prim error message 




LP 


2230 data 74, 74, 74, 


201, 10, 


176, 26, 24 


CJ 

HB 


1590 beq begin 
1600 jsr chrout 

1610 inx 


.start over 




BM 


2240 data 105, 48,153, 


130, 11, 


200,192, 3 


I 1 B—r 

GC 






NK 


2250 data 240, 21,176, 


32, 224, 


0, 240, 21 


CF 


1620 bne eri 






NM 


2260data189,141, 11, 


41, 15, 


202, 76, 44 


J 

IE 


1630 .-change ascii hex to blnaiy & store 
1640 convert Idx tfO ;set index 




EA 


2270 data 11, 24,105, 


55, 76, 


51, 11,189 


NN 


1650 jsr crof 


;unbl ink cursor 




AA 


2280 data 141, 11, 76, 


68, 11, 


160, 2, 162 


MH 
GK 


1660 cop Ida hxadd,x 

1 670 jsr makbl 


,get ascii 
;make binary 




GM 


2290 data 0, 76, 35, 


11, 96, 


32, 31, 11 


EG 


1 680 as 


; shift value into 




BB 


2300 data 162, 0,224, 


4, 240, 


9,189. 130 


LJ ; 

PE 

JF 


1 690 asl 
1 700 asl 

17i0asl 


;high nybble position 




NO 


2310data 11, 32,210, 


255, 232, 


208,243. 169 






MA 


2320 data 13, 32,210, 


255, 96, 


32, 204, 255 


LN 


1720 sta hxadd.x 


, save it 




PE 


2330data169, 7, 141, 


139, 11, 


32,195,255 


KC 
DP 


1 730 inx 

1740 Ida hxadd.x 


; raise index 

;qel nextascii 




JK 


2340 data 96, 0, 0, 


0, 0, 


0, 0. 


GP 


1 750 jsr makbl 


;make binary 




JE j 2350 data 0, 0, 7, 


0, 0, 





ND 

HA 


1760 cpx #3 

1770 beq over 


; "4 Ih character? 








;yes finish here 








00 


1 780 cic 


;no 






1 


LB 


1790 ado hxadd 


.add to high nybble 


Common Code: PAL source code 




FG 
KH 


1800 sta hxadd 
1810 inx 


;save combined value 
, raise index 


1 _ . 1 








IL 


1820 bne loop 


;always branch 




UA 


1000 (em save 'D' common code.pa ' 


,8 




KO 


1830 over dc 


;add low nybble of 




NB 

■ J L ■ 


1010 open 8,8,8, 'Ocommon code.p 


,w 


' 


FJ 


1840 ado hxadd + 2 


, ow byte to hiqh 




NM 

1 f^ 


1020Ey5700 

_d Hn ^K ^n ^"i 






HM 


1650 sta hxadd + 2 


.and save it 




JC 

ma- 


1030 .opt o8 






ND 


leeoond Ida intig 


: 'done end address^ 




PJ 


1040; ■ common code by lack r (arrah 




Al 


1870 bne output 


.yes. flag set 


IMH 1 


1050 ;progFam to find identical code 


sequences 




FE 


1880 Ida hxadd 


.no save start add. 
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MF 


1890 


sta sladd + 1 ;on zero paae 


CF 


2720 


bcc subhi 


;reduce hi byte 


NM 


1900 


Ida hxadd + 2 




01 


2730 sell 


da enck 


;get new end add. 


OC 


1910 


sta siadd 




FD 


2740 


sec 




KK 


1920 


Ida #$0d :< 


sr 


LA 


2750 


sbc ckbyt 


; subtract byte gth 


BG 


1930 


jsr chrout 




FJ 


2760 


sta mtchck 


;save as check value 


KP 


1940 


Sta infia ;: 


set flag 


LK 


2770 


bcc sub2 


;reducehibyte 


JF 


1950 ,*get user end addfess- 




DC 


2780 


Ida enck + 1 


, get hi byte new end 


KK 


1960 


Idx #0 


clear rndex 


DN 


2790 set2 


sta mtchck + 1 


;make same here 


JA 


1970 end! 


Ida end m ess. X ; 


print message 


BJ 


2800 sets 


Ida stadd 


jstart add. low byte 


FN 


1980 


beq next 


F 


AH 


2810 


cic 




NJ 


1990 


r 

jsr chrout 




LG 


2820 


adc ckbyt 


;add byte Igth 


MK 


2000 






PL 


2830 


sla ckadd 


;check pointer 


1 T 1 1 * 

OD 


^^ ^_r T-r i—r 

2010 


bne endl 




HE 


2840 


Ida stadd + 1 


;hi byte 


PI 


2020 next 


dx #0 ; 


clear for char, count 


OE 


2850 


adc #0 


;add carry 


BA 2030 


]sr cron ; 


tjlink cursor 


HE 


2860 


sta ckadd + \ 


; put in pointer 


CB 


2040 


isr get ; 


gel the address 


Nl 


2870 


jmp mam 


.start mam loop 


00 


2050 


imp check 


check &make binary 


MJ 


2680 subhi 


dec enck + 1 




DB 


2060 output 


Ida hxadd ; 


get binary end add 


CK 


2890 


jmp sell 


. 


MG 


2070 ' 


sta enck+1 ; 


and store in zero page 


NH 


2900 sub2 


da enck+1 




Bl 


2080 


Ida hxadd + 2 




LF 


2910 


sbc #1 




GK 


2090 


sla enck 




EM 


2920 


imp set2 




OF 


2100 


Ida #SOd 


cr 


MJ 


2930 >main 


progam oop* 




FB 


2110 


1ST chrout 




HN 


2940 main 


Idy #0 


;clear for ind. add. mode 


HD 


21 20 ,-get output destination fror 


n user- 


FM 


2950 


Ida (stadd), y 


;gel value at start 

1 J 


JJ 


2130 


Idx #0 




FK 


2960 


cmp (ckadd). y 


;nexi to check 


FC 


2140 outl 


Ida outmess,x 


, print message 


DF 


2970 


beq gotmtch 


;they match check more 


MC 


2150 


beq get it 




ON 


2980 mal 


cc 


;no match 


HE 


2160 


1 hJ 

isr chroot 




BA 


2990 


Ida ckadd 


;add 1 to check add. 


1 ■ ■ 

GF 


2170 


inx 




HJ 


3000 


adc #1 




PL 


2180 


bne outl 




GN 


3010 


sta ckadd 


; store back 


NL 


2190getit 


isr getin 


;gel s' or 'p' 


OH 


3020 


Ida ckadd + 1 


;fix high byte 


MC 


2200 


beq get It 


;waitforkey 


DL 


3030 


adc #0 




NN 


2210 


cmp #80 


:'P? 


00 


3040 


sta ckadd + 1 


; store 


KE 


2220 


1 

beq print 


;yes. open printer 


GN 


3050 


Ida ckadd 


;have we reached 


PK 


2230 


cmp #83 


;'no.s'> 


PA 


3060 


cmp enck 


:"end ot poss<ble bytes? 


CA 


2240 


1 

bne petit 


:no go back for key 


IE 


3070 


bne main 


:no. start newt series 


BO 


2250 


beq byte 


; screen output 


BP 


3080 

1 


Wa ckadd + 1 


;lo bytes matched 


PF 


2260 print 


isr prout 


;open printer file 


HK 


3090 


cmp enck + 1 


, hi bytes same? 


AH 


2270 I'get bvte lath, (rom user- 




LK 


3100 


bne main 


;no. continue 


DF 


2280 byte 
2290 byllup 


Idx #0 


r 


IB 


3110 


ck; 


jdone with this series 


L 


da bylmess^x 


;print message 


NF 


3120 


Ida stadd 


;move staH pointer 


AA 


2300 


beq gtbyt 




CI 


3130 


adc #1 


;to next htghesi byte 


NN 


2310 


jsr chrout 
inx 




CA 


3140 


sta stadd 


:siofe It 


MO 


2320 




lA 


3150 


Ida stadd + 1 


;fix hi byte 


BL 


2330 


bne bytlup 




FD 


3160 


adc #0 




ON 


2340 erjmp 


imp error 


;oul of range avoider 


BA 


3170 


sta stadd + 1 




NM 


2350 gtbyt 


isi CTon 


; blink cursor 


FP 


3180 


Idx fO 


;c ear flag to show print 


00 


2360 gt2 


jSr gelin 


;get key 


JD 


3190 


stx mtchfig 


;routine this is new add. 


MC 


2370 


beq gl2 


;waitfor key 


FM 


3200 


Ida stadd 


icompare start add. 


ON 


2380 


cmp#$Od 


;'cr? 


LG 


3210 


cmp mtchck 


;with last checkab e byte 


BA 


2390 


beq seiend 


;defaut selected 


EE 


3220 


bne return 


; no match low byte 


Nl 


2400 


1 

jsr chrout 


;new value, print it 


HC 


3230 


Ida stadd + 1 


; check hi byte 


BL 


2410 


jsr eval 


.check range 


OM 


3240 


cmp mtchck + 1 




EJ 


2420 


isr makbi 


;make binary 


NH 


3250 


bne return 


,no match 


KE 


2430 


asl 


;shiftlohinybble 


HI 


3260 


jmp exit 


III 1 

;all done, close up 


DD 


2440 asl 






HI 


3270 return 


jmp set3 


;out of range avoider 


NO 


2460 asl 






JC 


3280 ;'Check remaining bytes 


for match • 


HE 


2460 asl 






GF 


3290golmlch Idx #0 


; clear jndices 


OM 


2470 


sla hidr 


;save it 


PC 


3300 


Idy #0 




AM 


2480 9t1 


jsr qetin 


;get second char. 


FE 


3310IUP 


inx 


;x counts bytes matched 


OH 


2490 


beq gt1 


;wait tor it 


OF 


3320 


cpx ckbyt 


; "checked all? 


H 


2500 


jsr chrout 


;pnnt iit 


FA 


3330 


beq prnt 


;yes. print 'em 


FB 


2510 


isr eval 


1 

;check range 


LC 


3340 


iny 


;no.index to next byte 


IP 


2520 


isr makbJ 


;make binary 


CG 


3350 


da (stadd) ,y 


;get next from start 


AF 


3530 


cic 


;addtahinybble 


HO 


3360 


cmp (ckadd), y 


;check for equality 


KD 


2540 


adc hdr 




BB 


3370 


beq lup 


; match as. get another 


AM 


2550 


cmp #2 


;■>!? 


PA 


3380 


jmp mal 


;no match. move up a byte 


FB 


2560 


1 

bcc erjmp 


;<2 not allowed 


EB 


3390 .-"hefeif all bytes match" 




LL 


2570 


M 1 

Sta ckb/t 


; Store new value 


LJ 


3400 prnt 


da mtchfig 


;"prinled this sladd? 


OD 


2580 


Ida #SOd 


;cr 


OM 


3410 


beq prst 


;no, so print it 


FP 


2590 


isr chrout 




lA 


3420 pinti 


|sr wait 


;check lor space bar 


AH 


2600 .--calculate end addresses 


■*• 


IH 


3430 


Ida #32 


; indent 2 spaces 


CO 


2610setend rsr cro! 


junWink cursor 


HE 


3440 


jsr chrout 




GG 


2620 


Ida #$0d 


;ci 


BF 


3450 


jsr chrout 




NB 


2630 


jsr chrout 




HC 


3460 


Ida #36 


;$ 


GA 


2640 


Ida ckbyt 


igetlgth to check 


FG 


3470 


|sr chrout 




LN 


2650 


sec 


F 1^^ ^^r 


MK 


3480 


Idy #0 


;setuptoget2 bytes 


lA 


2660 


sbc #2 


;EublTacl 2 


GK 


3490 mr2 


cpv #2 




KC 


2670 


sta hIdr 


;temporary save 


Hf^ 


1 3500 


beq mrl 




cc 


1 2680 


Ida enck 


■ r ' 

;ow byte end add. 


ON 


1 3510 


Ida ckadd, y 


,get add. ol matching bytes 


DA 


. 2690 


sec 




CC 


> 3520 


sta hldr,y 


; store for conversion 


IJ 


2700 


sbc hldr 


isublractva ue 


NF 


3530 


my 


;get 2nd byte 


OE 


. 2710 


sta enck 


;savenevj value 


OH 1 3540 


bne mr2 


;a ways branch 
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HL 3550 mrl jsr prnlhx ;convert and print add. 


LF 


4380 


cmp #64 


;for space bar release 




PF , 3560 jmp ma1 , re sel ckadd and loop again 


OA 


4390 


bne wal 


.keep wailinq 




OM j 3570, "prinT start address matched- 


LP 1 4400 


Ida #1 


, set flag to Show 




MF.3580pfst Ida #$0d :cr 


GF 


4410 


sta infig 


•J 

;we're looking for 2nd 




NN " 


3590 jsr chrout 


FD 


4420 


jmp wa2 


;hit of spacebar 




OL 


3600 Ida #36 ;S 


KE : 4430 goon 


fda infIg 


,if f agset 




BP 


3610 jsf chroLit 


GN 4440 


bne wa2 


[keep fookino 




FM 


3620 Idy #0 ;settoget2bytes 


MK 4450 g1 


rts 


,the waits over 




ID 


3630 pf2 cpy #2 


BK 


4460 .'Start cursor blink* 






GF 


3640 beq pri 


AL 


4470 cron 


da #0 


;c ear this byte 




LF 


3650 Ida stadd.y ;gei1stbyte 


F 


4480 


sta $cc 


X 

;lo start blink 




OG 


3660 sta hidr.y ; save tor conversion 


GH 


4490 


rts 






DM 


3670 iny ;set for next byte 


BK 


4500 ,»stop cursor bltnk- 


n 




MG 


3680 bne pr? 


HG 


4510crof 


da #1 


;set byte to 




GN 


3690 pri fsr prnthx iconvert and print 


NK 


4520 


sta $cc 


,stop birnk 




PD 


3700 Ida #1 ;set flag 10 show 


OJ 


4530 


rts 


1 




PF 


3710 sta mtchfig ;stadd was printed 


EN 


4540 ,»2 byte 


1 binary to 4 byte ascii hex- 




NM 


3720 jmp prnti ;gopnntckadd 


DG 


4550 makhx 


dx #1 


;x set to get byte 




NP 


3730,-teSl" 


IL 


4560 


Idy #0 


;v set to save ascii 




OL 


3740 tille byle $20.$20,$2a.$l 2 


AA 


4570 hx3 


Ida hidr.x 


r 

;get byle(hi first) 


1 


JB 


3750 asc "common code": byte $92,$0d,$0d 


HM 


4560 


and #$fO 


:mask low nybbte 


; 


KK 


3760 .asc "starl address in hex ': .byle$Od,$00 


KH 


4590 


ter 


;shlfthinybbletolow 


. 


AE 


3770ermess .asc 'input error" .byte$0d.$O0 


BN 


4600 Isr 




J 




GN 


3760 endfr>ess asc "end address in hex ": byte $0d,$00 


LN 


4610 tsr 








FO 


3790 outm ess asc 'output to '., byte $12 


FO 


4620 Isr 








LD 


3800 asc's': byte $92 


AO 


4630 hxl 


cmp #10 


;' = >10? 




UE 


3810 asc "creen ot ": ,byte $^12 


NJ 


4640 


bcs admor 


;yes. make letter 




ME 


3320 asc 'p': byte S92 


MO 


4650 


cc 


;r>o number 


j 


PH 


3830 asc Tinter' . .byte $0d.$00 


LA 


4660 


adc #48 


;add 48 for ascii 




GG 


3840 bylmess asc "byte length in hex" byte $0d,$37,$9d,$00 


MJ 


4670 hx2 


sta hxadd, V 


: store it 




KN 


3850 ,-SLfbroulinest 


DC 


4680 


iny 


: raise counter 




JC 


3860 get jsJ chrin ;get user fnput 


EG 


4690 


cpy #3 


:"done3 nybbles? 




FK 


3870 cmp#$Od ;'cr? 


EF 


4700 


beq skip 


;yes,do4)h 




HI 


3880 beq done .yesexit routine 


BA 


4710 


bcs dun 


;y>3. we're done 




PI 


3890 sta hxadd.x .store ascji char 


DK 


4720 


cpx #0 


;'y<3hibytedone? 




GC 


3900 THx ; raise idexfor next 


ON 


4730 


beq nxtbyt 


, yes. do low 




FL 


3910 bne get ;gogelH 


AN 


4740 


Ida h dr,x 


;no get lo nyb,hi byte 




CJ 


3920 done rts 


HE 


4750 hx4 


and #$0f 


jmask hi nybble 




NF 


3930;'makel byte ascii in a binary 


MK 


4760 


6ex 


;tower counter 




IL 


3940 makbi cmp #58 ; ■ = >9^ 


LM 


4770 


jmp hxT 


;make ascii 




AK 


3950 bcs let ; yes. Its a letter 


M ! 4780admor 


cIc 


iconvert binary letter 




AD 


3960 sec ;no so subtract 48 


LE 4790 


adc #55 


;to ascii by 




ND 


3970 sbc #48 ; for equiv. number 


NP 


4800 


jmp hx2 


laddJng 55 




PM , 


3980 ftS ; return 


OP 


4810 skip 


Ida hIdr.x 


,gei lo byte last lime 




, DC 1 


3990 let sec ;foratof 


FL 


4820 


jmp hx4 


,do lo nybble 




PM ' 


4000 sbc #55 :subtract55 


CJ 


4830 nxtbyl 


Idy #2 


;reset indices fc 




GJ 


4010 rts 


LM 


4840 


dx #0 


;2nd address byte 




CM 


4020 'Check if valid hex ascii- 


FE 


4850 


jmp hx3 


;loop again 




PF 


4030 eva\ cmp #71 ; ■ = >g? 


IC 


4860 dun 


rts 


.return 




GD 


4040 bcs bad ,yes, nogood 


NO 


4870 >print hex add. Stored in 


hxadci- 




PF 


■ 4050 cmp#65 ;"iIs<gJsit =>a? 


KG 


4380 prnthx 


jsr makhx 


;binarytohex 




BP 


4060 bcs good ;yes. its valid 


MB 


4890 


Idx #0 


r 

; clear index 




AG 


4070 cmp#58 ;"its<a.isil =>:? 


1 CJ 


4900 lupe 


cpx #4 


:do4 numbers 




GG 


4080 ■ bcs bad ;yes.ncgood 


H 


4910 


beq fin 






JO 


4090 cmp#48 ;'<:jsi1<0? 


BA 


4920 


1 

Ida hxadd.x 


;qe[ ascii hex 




KD 


4100 bcc bad , yes. no good 


PB 


4930 


jsr chrout 


;prin1 it 




HI 


41 10 good cic .range ok. 


EM 


4940 


tnx 


;pointlo next char. 




NO 


4120 rts ;backlocaller 


FN 


4950 


bne lupe 


; always branch 




KN 


4130 bad pfa - .invalid. pull return 


FE 


4960 fin 


Ida ff$Od 


,cr 




FA 


4140 pla ;add. fiom stack 


BE 


4970 


jsr chrout 






PK 


4150 jmp error ;userres1art 


HL 4980 


rts 


: return 




DM 


4160;'Setup printer file* 


GD 1 4990 ^program finished, clean up- 




IB 


4170prout Ida #7 ;fi1e# 


CA 


5000 exit 


|sr circhn 


;resel default devices 




Bl 


4180 Idx #4 ;device 


MH 


5010 


Ida #7 


.default value 6. fi e# 




Bl 


4190 Idy #$ff jbogus second add. 


DE 


5020 


sta ckbyt 


.save it 




NN 


4200 jsr setlfs ;definethefie 


FB 


5030 


jsr close 


.close file 7 




II 


4210 Ida #00 ;no name, nolength 


FO 


5040 


rte 


;tiackto basic 




BL 


4220 jsr setnam .required call 


EE 


5050 ; 'Storage* 






BP 


4230 jsr open ;opentile7 


AD 


5060 hxadd 


byte 0,0,0,0 


:4 bytes to ho d ascii hex 




GH 


4240 Idx #7 ;set file 7 for output 


CO 


5070 mtchck 


byte 0,0 


; asiadd to check 




MF 


4250 jsr chkout 


MM 


5080 enck 


byte 0,0 


;lastadd. for match 




JH 

■ 1 ■ 


4260 rts ;backfocaler 


NB 


5090 inf g 


byteO 


[user add input flag 




JH 


4270 , -check/accept space bar pause-- 


FG 


SlOOckbyt 


.byte $07 


r n—r 

,# bytes to match 




MO 


4280 wait Ida #0 .dear fag to show 


01 


51 10 mtchfig 


.byteO 


;new group t ag 




JJ 


4290 Bia inf g ;we're not waiting 


LH 


5120hldr 


byte 0,0 


■_r 4 ^j 

[temporary storage 




JH 
OJ 


4300 wa2 da $cb ; current key pressed 
4310 cmp#64 ;64^nokey 


GO 


5130 end 




T 4_r 








EA 


4320 beq goon ;r>o key, nothing to do 










FM 


4330 cmp #60 ;"space bar? 










00 


4340 bne goon ;no, so ignore 










FE 


4350 Ida infg ; was space bar. 










IM 


4360 bne g1 ;itset.waitisover 








JE 


4370 wal Ida $cb ; start the wait 
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Getting Around 
With Gogo Dancer 



Chris Miller 
Kitchener, Ontario 



One of the nicest things Commodore did for the 64 was build in a 
fairly gutless Basic with lots of RAM vectors for hackers to play 
with. I'm aware that the world probably does not really need 
another CHRGET wedge but when this idea came to me, 1 
couldn't seem get it out of my mind. As a matter of fact. 1 almost 
nanied the program GOGO CRAZY, and now 1 would like to 
share it with you. 

My favourite language will probably always be assembler be- 
cause of the power it gives you over the flow of a program, 
GOGO DANCER WEDGE will allow Basic programmers to 
prance about their code with much the same agility. 

GOTO and GOSUB now support three new types of parameters: 



Expressions Of Your Desire 

1 . Yes, now instead of typing GOTO 1 000 you could type GOTO 

10*10*10 or GOTO 500 + 500. Or how about instead of ON X 
GOSUB 100,200,300 using GOSUB X* 100. That's right, you can 
use any type of expression including variables. And you thought 
your programs were hard to understand now. 



What's In A Name 



Here are a tew trivial examples to demonstrate the syntax: 

5 rem using expressions 

1 for In = 1 00 to 500 step 100 

20 gosub In 

30 next 

40 end 

100 print 'this';: return 
200 print "could';: return 
300 print "make";: return 
400print" you";: return 
500 print "crazy";; return 

5 rem using labels 
10 gosub ©hello 
20 gosub ©goodbye 
30 end 
40 @hetlo 
50 print "hi there" 

60 return 

70 ©goodbye: print "so long": return 

Notice the '@' must precede the name both in the call and the 
definition and that the name is defined as a single statement. 
Keep in mind that redefinition errors are not checked for The 
first occurrence of a label will always be used. 



2. Labels! Even better, you1l be able call your routines by name 
if you want to. This means you can do a dumb renumber or 
move stuff around without messing things up for your GOTOs 
andGOSUBs. 



Macros (Kind Of) 

3. [.astly, you can use string variables instead of literal label 
arguments. Imagine reading in your subroutine calls from DATA 
statements. Want to change the order in which things are done? 
Just change the DATA. 



A Word Of Warning 

These abilities can cut two ways. You can use GOGO DANCER 
to make your programs more maintainable and easily under- 
stood, or you can use it to confuse the living daylights out of 
anyone who lays eyes on them (including yourself). 



■ 

5 rem using string variables 

10forx = 1 to3 

20 read g$ 

30 gosub ^g$ 

40 next 

50 end 

60@xxxx: print 'may not be found ";: return 

70 @yyyy: print "tokenized labels ";: return 

80 @zzzz: print "using this technique';: return 

90 datazzzz,yyyy,xxxx 

As it is, the above program would print (quite truthfully), 

"using this technique tokenized labels may not be found". 

If you were to change the data line to 90 yyyy,xxxx,2zzz then 
the program would print 

"tokenized labels may not be found using this technique" 

Notice that the '@' is used before the string variable name also. 
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Variables used in GOTO and GOSUB parameters must always be 
defined, NULL or ZERO values will not be substituted (as Basic 
so loves to do). Instead you will get an UNDEFINED STATE- 
MENT error. 

GOGO DANCER is only about 200 bytes of code and shouldn't 
be much trouble to enter as data statements. If you enter and 
convert the source to whatever assembler you love best, then 
you will be able to relocate it easily and modify it if you so desire. 
To activate it use; 

SYS 49152 

either from the immediate or within a program. A SYS49152 
with the wedge enabled wonl hurt anything. 

GOGO DANCER was written mostly for fun and education (my 
own). Nonetheless, the self-modifying powers and reduction of 
Basic's line number dependence may prove useful in protection 
schemes, complex Basic intelligence simulations and in reduc- 
ing the size of source programs. 

Gogo Dancer 64: BASIC Loader 



Gogo Dancer 64: Source Code (Buddy 64 Format) 



DP 
EP 
MO 
BD 

EO 

HF 
EB 
AO 
GO 
BF 
LM 
ED 
HE 
EE 
JB 
PB 
BA 
JD 
IG 
EF 
HE 
CI 
KH 
Al 
IK 
MK 
HA 
PF 
HI 
OJ 
MJ 
GA 
CD 



100 rem save"0:gogowedge.ldr",8 

1 10 rem *• written by Chris miller, kitchener, Ontario 

120; 

130 forj = 49152 to 49357: read x: pokej,x 

: cti = ch + x: next 
1 40 if ch<>26694 then print '* ' checksum 

error**": stop 

1 50 print 'sys491 52. rem to enable': end 
160: 

170data169, 11,141, 8, 3,169,192,141 
ISOdata 9. 3, 96, 32,115, 0, 32, 20 
190 data 192, 76,174.167,201,137,240, 43 
200data201,141,240, 13,201, 64,208, 3 
210 data 76,248,168, 32,124, 0, 76,237 
220 data 167, 169, 3, 32,251, 163, 165,123 
230 data 72,165,122, 72,165, 58, 72,165 
240 data 57, 72,169,141, 72, 32, 67,192 
250 data 76,174,167, 32.115, 0,201, 64 
260 data 240, 12, 32,124, 0, 32,158,173 
270 data 32,247,183, 76,163,168, 32, 6 
280data169, 136, 177,122,201, 36,208, 34 
290data 32,115, 0, 32,139,176,160, 
300data177, 71.240, 91,133,255,200,177 
310data 71,170,200,177, 71,168,138,208 
320 data 1,136,202, 134,253,132,254, 76 
330 data 1 40, 1 92, 1 32, 255, 1 65, 1 22, 1 33, 253 
340data165, 123, 133, 254, 165, 43,133, 95 
350 data 165, 44,133, 96,160, 4,166,255 
360data177, 95,201, 64,208, 25,136,136 
370 data 136, 1 77, 253, 200, 200, 200, 200, 209 
380 data 95,208, 12,202,208,240,200,177 

23,201, 58,240, 19,160 
95,170,200,177, 95, 133 
95,177, 95,208,205, 76 
56, 76,197,168 



390 data 95,240, 
400 data 0,177, 
410 data 96,134, 
420 data 227, 168, 



Dl 
KJ 
Bl 
GB 
EH 
NO 
AG 
AF 
AD 
KA 

AM 
KF 
GG 
AO 
EL 
DJ 
OP 
AF 
LB 
MJ 
GO 
IE 
KD 
LB 
AG 
LC 
AJ 
CO 
GH 
KK 
DP 
ME 
HH 
IK 
Kl 
ND 
IB 
AN 
OE 
CE 
00 
GD 
NH 
MA 
DJ 
AC 
NJ 
CP 
NN 
NN 
CF 
GM 
BO 
BJ 
EM 
Kl 
FN 
OE 



1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 

1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 



rem save'0:gogowedge.src',8 

rem by chris miller jan. 4, 1 987 

rem enables calculated goto(sub) ln# 

rem e.g. n = 1 0: goto n*n (i.e. goto 1 00) 

rem enables goto(sub} labels 

rem e.g. gosub @pig 

rem enables goto(sub) variable nameS 

rem e.g. x$ = 'pig': gosub @x$ 

rem e.g. 5000 @pig: (to flag routine} 

rem •* source in buddy 64 (power 

assembler) format 

sys999 

; sys700 for pal and symass 

*=49152 

.mem ; .opt oo for pal 



srcptr 
argptr 
length 



= $5f 
= 253 
= 255 



* wedge for variable goto's & gosubs 



Ida #<wdg 

sla $308 

Ida #>wdg 

sta $309 
rls 



; install cmd wedge 



wdg 



= * 



isr $73 

jsr parse 
jmp $a7ae 



;get command 



parse 



= « 



cmp#137 
beq goto 

cmp^141 
beq gosub 

cmp#"@' 
bne tobasic 



iisitgoto 

;yes/then do goto 

;is it gosub 

;yes/then do gosub 

;isitalabel 
;yes/then ignore 



jmp $a8fS ;readtoeoln 



;** backtobasi 

tobasic 



ic 

= * 

jSf $7c 

jmp $a7ed 



;setschr flags again 
;conlinue parsing 



gosub 



z= « 



Ida #3 
jsr $a3fb 
Ida $7b 
pha 

Ida $7a 
pha 



;check stack space 
ipush stuff on stack 



;lexi pointer 
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I 



^ BO 


1580 Ida $3a 


10 


2190 


Sta argptr + 1 


OG 


1590 pha ;linenumber 


OA 


2200; 




NN 


1600 Ida $39 


FC 


2210 hunt 


s • 


GM 


1610 pha 


LE 


2220 


Ida 43 ;read start of basic 


BK 


1620 Ida #141 


LP 


2230 


sta srcptr ;to source pointer 


IC 


1630 pha ;gosub token 


EM 


2240 


Ida 44 


GM 


1 640 fsr goto 


KG 


2250 


sta srcptr +1 


BM 


1650 jmp $a7ae 


KE 


2260; 




CP 


1660; 


EK 


2270 back1 


= * 


OF 


1 670 goto = * 


LD 


2280 


Idy #4 


PO 


1680 isr $73 ; 


get next char 


DC 


2290 


Idx ength 


AC 


1690 crnp#'@" 


see if abel goto 


NF 


2300 


Ida (srcptr),y ;first line char 


KG 


1700 beq islabel ;. 


yes/then check type 


BN 


2310 


cmp#"@' ;see if label me 


EC 


1710;' 


DD 


2320 


bne nextin ;no/try next line 


JK 


1720;** evalexprfo owing golo{sub) 


AJ 


2330; 




MH 


1730 jsr $7c ; 


reset flags 


MO 


2340 back2 


= * 


AJ 


1740 jsr $ad9e ; 


evaluate expression 


JO 


2350 


dey 


PR 


1750 jsr $b7f7 


;convert float to fixed 


DP 


2360 


dey 


GF 


1760; 


NP 


2370 


dey 


CK 


3 

1770gotoline = * 


OJ 


2380 


Ida (argptr), y ;get search char 


NA 


1780 imp $a8a3 ; perform goto 


MM 


2390; 




EH 


1790; 


MG 


2400 for2 


= * 


AO 


1600 ;*• label used instead ot linenum 


KE 


2410 


iny 


LJ 


1810 islabel = • 


EF 


2420 


iny 


IH 


1 820 jsr $a906 


Jndexendof st'mt 


OF 


2430 


my 


MF 


1830 dey . 


;with .y. 


G 


2440 


iny 


BN 


1840 Ida ($7a).y 


;check last char 


NN 


2450 


cmp (srcptr),y ;compare with dest 


CH 


^^ h r ' ^ 

1850 cmprS" 


;see if string var 


MH 


2460 


bne nextin ;noteq./nextline 


BF 


1860 bne set abet 


;no/then literal 


MB 


2470; 




EM 


1870; 


MM 


2480 


dex :else continue 


AO 


1 vr F vr ■ 

188C;**ese abe is in a string var 


FB 


2490 


bne back2 ;for lenghtof arg 


CG 


1890 jsr $73 


KD 


2500; 




EN 


1900 jsr $b08b ;locate var 


OK 


2510 


iny 


m ■ ■ ■ 

BM 


1910 Idy #0 


JC 


2520 


Ida (srcptr),y ;should be end 


JB 


r w V J 

1920 Ida (71),y ;variable pointer 


AP 


2530 


beq found ;of source abel 


Nl 


1930 beq undefnd'st;var not defined 


CG 


2540; 




KA 


1940; 


AE 


2550 


cmp#":" 


NF 


1950 sta length ;save ength 


GP 


2560 


beq found 


II 


1960 iny 


Al 


2570; 




OG 


1970 Ida (71),y ;set pointer to var 


OD 


2580 nextin 


^ • 


EC 


1980 tax ;in x. and.y. 


JG 


2590 


Idy #0 


GK 


1990 iny 


AN 


2600 


Ida (srcptr),y 


DO 


2000 Ida (71).y 


NP 


2610 


tax 


JK 


2010 tay 


MB 


2620 


iny 


OB 


2020 txa ;then backup one 


00 


2630 


da (srcptr),y 


DF 


2030 bne fori 


AL 


2640 


sta srcptr +1 


OG 


2040 ; 


EF 


2650 


stx srcptr 


NL 


2050 dey 


MA 


2660 


Ida (srcptr), y 


CI 


2060; 


KN 


2670 


bne backl 


PB 


2070 fori = * 


00 


2680; 




HN 


2080 dex 


BM 


2690 undefnd'st = • | 


HO 


2090 Six argptr ;set zpg pomter 


AE 


2700 


jmp $a8e3 ;undefined state error 


00 


2100 sly argptr + 1 


MA 


2710; 




DL 


2110 jmp hunt ;find the line 


JA 


2720 found 


= * 


OL 


2120; 


LC 


2730 


sec 


EO 


2130 ;** otherwise label is constant 


HO 


2740 


jmp $a8c5 ;setgoto 


NH 


2140seltabe = • 


ED 


2750; 


^ 


HJ 


21 50 sty length ;of label argument 


EK ; 2760 .end 




Gl 


2160 Ida $7a ;copytxtplr 






KK 


21 70 sta argptr ;to search arg pointer 






EE 2180 Ida S7b 
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Now You See It, 
Now You Don't 



Michael R. Mossman 
Quispamsis, NB 



The secret of "transparent" cartridges on the C64 



Have you ever wondered why those marvellous cartridges can 
do things to,your computer, but never show up anywhere in 
memory? The first time 1 saw Busscard II (an IEEE interface for 
the 064 that adds basic 4.0 disk commands} at a friends house, it 
made me curious. I asked to see the machine language code, but 
we could not find it in memory This curiosity stayed on the back 
burner until I bought my Fast Load cartridge. Again, the pro- 
gram could not be fourid in memory. Overwhelmed, I proceeded 
to dismantle the cartridge. Inside, I expected to find a maze of 
modern electronics. Much to my disappointment, there sat two 
lowly ICs. One was the expected EPROM and the other a 7407, [ 
traced some of the lines but it didn't make much sense. Disap- 
pointed, I closed it up and it remained in the back of my 
computer for over a year. 

A few months back, I bought a "Promenade" EPROM program- 
mer to burn a few of my own custom chips. Every now and then 
I would cast an eye at that Fast Load cartridge, wishing that I 

could make my cartridges invisible In memory. I revived my 
attack on that despicable cartridge with renewed vigor. I re- 
moved the EPROM from the board and read the program out 
with my Promenade. I looked at the code and figured that the 
program ran at $8000 but I knew that the program could not be 
seen at $8000. This time I sat down and traced out every line on 
the board and drew a diagram as I went. Low and behold, the 
secrets were revealed to me. 



SN7407 




■¥ 






l)Pin 7 is Ground 

2) Pin 1 4 goes to -f 5V supply 

3) All address and data lines on the ROM or EPROM go to their 
equivalents on the expansion port. 

Figure 1 



I would like to point out that this article is not to show you how to 
copy the Fast Load cartridge. The cartridge is such good value 
for the money that building one yourself costs more than buying 
it outright. The code itself is of no use because it will not run by 
just loading and running it at $8000 - it is much more involved 
than that. The value lies in being able to put wedges in BASIC 
and set vectors that are completely transparent to other pro- 
grams. All this and your program occupies no memory The 
memory area at $C0O0 - $CFFF is fought over by so many 
programs. There are times when I want the DOS wedge and 
another program in memory at the same time. This is impossible 
because they conflict at $C0O0, 

To make your own invisible program, it is necessary to under- 
stand the normal control line operation of the expansion port. 
These are the lines available: 

EXROM - This line is normally high {!). To tell the PLA that you 
want the CPU to read the external rom at $8000, this line is set 
low. 



ROML - This line is a type of decoded address line. When the 
CPU wants to read the external ROM at $8000, this line is pulled 
low or 0. ROML will never go low it the EXROM line is not low. 

RESET - This line is usually high when the computer is running. 
Its purpose is to prevent the CPU from trying to execute ML 
instructions when the computer is cold started. This allows the 
other chips to reach their "normal" states before the CPU 
addresses them. RESET is low during reset time. The computer 
would act flaky without a RESET line. The RESET line goes low 
in only two normal operations; 

1) When the computer is turned on. 

2) When the reset button is pressed on the computer. 

I/O 1 , I/O 2 - These lines are intended for selecting an external 
i/0 device, e.g. Adding an ACIA or a CIA chip. Selection is done 
by pulling the line low. This is done when you do a read or write 
to $DEOO - $DFFF. I/O 1 is the area from $DEO0 - $DEFF and 
I/O 2 is $DFO0 - $DFPF. 
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Now. let's look at the invisible cartridge - see Figure I . Ttie ctiip 
is a 7407 hex buffer and so if a low or a 1 is put in, a low or 1 
conies out. When the computer is turned on, the RESET line is 
low. This causes the EXROM line to be low. The line is held low 
for a period of time, after reset, by the capacitor. When the 
computer reads the $8000 area it will see the EXROM line in a 
low stale and use ROML to address the external cartridge. If it 
finds the autostart sequence, it then passes control over to the 
cartridge code. All this lime, the EXROM line has been held low 
because ROML line is low- 
To review the concept: The RESET line starts the sequence but 
the ROML line holds the EXROM line low while the CPU is 
reading code from the $8000 block. If the CPU stops execuHng 
code for a period of time, then the cartridge at $8000 will 
disappear (EXROM stays high because ROML is high). The 
cartridge code sequence is: normal cold start initialization, set 
your own vectors, and then pass control to BASIC. 

The question now arises "How do 1 get the code to reappear at 
$8000, now that the cartridge is invisible?*. If a read or write is 
done to $DEO0, then the 1/0 1 line will go low causing the 



40: 


0801 








50: 


0801 








60: 


0614 








90: 


0814 








100: 


0814 


a9 


00 




110: 


0816 


85 


fb 




120: 


0818 


a9 


80 




130 


081a 


85 


fc 




140: 


081c 


aO 


00 




150: 


081 e 


a2 


00 




160 


0820 








170 


0820 


8e 


00 


de 


180 


0823 


ca 






190 


0824 


dO fa 




200 


0826 








210 


0826 


8g 


00 


de 


220 


0829 


b1 


fb 




230. 


082 b 


91 


fb 




240 


082d 


c8 






250: 


082e 


fO 


03 




260 


0830 


4c 


26 


08 


270: 


0833 








280: 


0833 


e6 


Ic 




290: 


. 0835 


a5 


fc 




300. 


. 0837 


c9 


aO 




310: 


: 0839 


fO 


03 




320: 


083b 4c 


26 


08 


330. 


: 083 e 








340: 


: 083e 


60 






V-.S- 


:^»ii'^)irfOr 







Store 



nnl 



loop = 



.opt p4 


^ 


$fb 


.bas 


;m 


::= 


w 


da 


#$00 


sta 


store 


da 


#$80 


sta 


store + 1 


dy 


#$00 


dx 


#$00 


stx 


* 

SdeOO 


dex 




bne 


loop 



;address for loop storage 



;sel up for read write loop 



;corrfpletely discharge ca- 
pacitor for reading epron^ 



loopl = * 



;loop for reading eprom 



sty SdeOO 

ida {store),y ;read eprom 



sta (store), y 



;storeloramatsame 
memory iocation 



EXROM line to go low. The capacitor will hold the line low for 
period of time. Just enough, so that when a read or write is done 
to $8000, the ROML will be pulled low by the CPU because 
EXROM is still low. In this case, I/O 1 line starts the sequence 
but the ROML line, again, holds it. 

One of the vectors that you set in the cold start code could point 
to code in the cassette buffer, the $02A7 - $02FF area, or $C000 
block. This code is necessary because it will make the $8000 
code visible again. The drawback is that using the above areas is 
dangerous because other programs like to use these same spots. 
The answer is in using the I/O 2 line. You will notice from Fig.l 
that I/O 2 is connected to the CS (selected by a low) through a 
buffer. When you do a read of the area from $DFOO - SDFFF you 
will see code. The magic thing about this code is that it is really 
located in the rom chip at $9FO0 - $9FFP. You appear to see it at 
I/O 2 area because of the way the chip is selected. 

Let's look ai how this type of cartridge can be used in your own 
code. Suppose you would like to implement a wedge in basic. 
When the machine is turned on, the RESET line is pulled low 
causing the EPROM at $8000 to appear The cartridge stays 

visible because of the capacitor on the EX- 
ROM line. The code at $8000 is executed 
because the key code exists. You make a 
jump to the $DFFO area to initialize 1/0 
devices, perform the RAM test, set up page 
zero kernal locations and then the i/0 vec- 
tors are set. Chi^et and various zero page 
BASIC pointers and finally the vectors at 
$0300 - $030B are set. It is here that you 
can now set the BASIC error vector at $0300 
to point lo your code at $DFOO. When the 
BASIC interpreter errors out because it does 
not recognize a command, the error vector 
will point to your code at $DFOO, The code 
at SDFOO will do a read or write lo $DEO0. 
This will cause the EXROM line to go low 
and ttie eprom lo appear at $8000. You can 
now jump to your code in the EPROM lo 
check the chrgel routine for your command. 
If it is your wedge then the command is 
carried out, if not then you jump to the 
normal error handling routine. 



add = 



my 

beq 

jmp 


add 

loopl 

# 


inc store + 1 
Ida store + 1 
cmp #$aO 


beq 
jmp 


end 
loopl 



;if low byte is zero then 
increase high byte by one 



I can see many uses for this type of pro- 
graming and 1 think that many of you will 
also. Included here is a little machine lan- 
guage program that will make the code 
from the Fast-Load cartridge appear and 
then store it to normal ram at $8000. 



;ff tiigh byte is equai 

$aO then end 



to 



end = 
rts 



;return to basic, program 
can now be read with a 
monitor from $8000-$9fff 
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Fiddling About 



Matthew Palcic 
Xenia, Ohio 



. . .Contrary to common belief, color graphics are 
easily achieved on the CI 28 in 80 column mode, . . 



1 purchased my 128 in September oi 1985. immediately after 
they became available in my area. I was looking forward to the 
excellent graphics that all of the magazines talked about. I soon 
found out that these graphics were nothing short of impossible to 
figure out without any technical references. My good friend, 
Lowell, is a Doodle expert. After seeing the limited capability of 
the 128, he became very unimpressed with the 80 column 
graphics. I was far from convincing him that the 128 was worth 
the money. People soon figured out how to do hi-res in 80 
columns. New drawings and utilities popped up all over. 

But these programs all lacked something big: color, I still didn't 
know color was possible, until I fiddled around with a demo 
graphic screen done in 80 columns. I stopped the program and 
typed on the 80 column screen. A lot of trash appeared on the 
bitmap. 1 then turned ori attributes, and set the attribute pointer 
to the same place 1 was typing. As 1 typed, 1 was getting different 
foreground colors on a black background. Lowell still felt this 
was nothing spectacular, because hi-res on the 64 allows a 
separate foreground and background. 1 then typed shifted and 
reversed characters. With that 1 got different background col- 
ors!! The colors worked very similar to hi-res mode of the 64. 
This proved that there was a systematic color scheme. I just had 
to figure it out. With this. Lowell challenged me to convert a 
Doodle picture to 80 columns in full color. And because of that 
challenge. I wrote this article. 

Contrary to common belief, color graphics are easily achieved 
on the CI 28 in 80 column mode. The key is to shrink the size of 
the screen, 16 colors are allowed on the screen. Each 8 by 8 
character space can support a separate foreground and back- 
ground color. The colors work differently than those of the 8564 
VIC-11 chip used in 40 column mode. Following this article is a 
program that will convert a 40 column graphic screen to the 80 
column screen with full color 

The first step in creating a color screen is reducing the frame 
size. The frame is the actual size of the screen (measured in rows 
and columns). For this article, a frame size of 40 columns by 25 
rows is ideaL This reduces the bit map area to 8K, leaving 
sufficient memory for color. Because a full screen would take up 
16,000 bytes of RAM. there would not be enough memory to 
support color with 1 6K of VDC RAM. Reduce the frame size by 



changing register one (horizontal displayed) to 40. A VIC-ll 
graphic screen will fit perfectly in the reduced frame. The other 
half of the screen wii) then be used for color memory. For those 
wanting to stretch the frame to fill the screen, use double-width 
pixel mode. Horizontal registers will need to be adjusted when 
using that mode. After adjusting the screen you can then add 
color. 

The colors are accomplished in RGB mode much differently 
than the composite method. In 40 column mode the colors are a 
set pattern; each color is assigned a bit pattern. The bit pattern is 
not systematic, and the values must be memorized or taken from 
a chart. However, RGB color can be arrived at systematically. 
Each of the colors in RGB (Red Green Blue) is assigned a bit. All 
other colors are mixtures of those primary colors. An intensity 
bit is also used to allow shades. The following chart explains 
how the bit patterns work, and how intensity affects them. 





Intensity Off 


Red Green 


Blue^ 


= Color 











Black 








1 


Blue 





1 





Green 




1 


1 




1 




Cyan 
Red 


1 
1 




1 


1 




Purple 
Brown 


1 


1 


1 


Light Grey 




Intensity On 


Red 


Green Blue - 


- Color 









1 




1 




Dark Grey 
Light Blue 
Lighl Green 




1 
1 
1 


1 



1 


! 



1 




Light Cyan 
Light Red 
Light Purple 
Yellow 


1 


1 


1 


White 
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Because of Ihe systematic patterns in RGB, a direct transfer of 
composite color memory to VDC color memory would result in 
incorrect coloring. The following chart shows the difference 
between the assigned colors in composite mode and those of the 
RGB mode. 



Composite Colors 


RGB Colors 


= Black 


= Back 


1 = White 


1 = Dark Gray 


2 = Red 


2 = Dark Blue 


3 = Cyan 


3 = Light Blue 


4 = Purple 


4 = Dark Green 


5'= Green 


5 ='Light Green 


6 = Blue 


6 = Dark Cyan 


7 = Yellow 


7 = Light Cyan 


8 = Orange 


8 = Dark Red 


9 = Brown 


9 = Ligfit Red 


10 = Light Red 


10 = Dark Purple 


1 1 = Dark Gray 


11 = Light Purple 


12 = Medium Gray 


12 = Brown 


13 = Light Green 


13 = Yellow 


14 = Light Blue 


14 =- Light Gray 


15 = LighlGray 


1 5 = White 



Not only are the colors different in the two modes, but the 
foreground and background are reversed. Normal VDC attrib- 
utes don't work the same as they do in bit map mode. In text 
mode, the bottom nibble is used to support the foreground color 
as it is in bit map mode. But the upper nibble is used to support a 
background color for a character space. These bits are normally 
used fo support underline, flashing, reverse and alternate char- 
acters. Attributes are on by default, but to turn them on in case a 
program shuts them off you can set register 25. bit 6. You must 
also tell the VDC where in VDC RAM you want the attributes. 
This is done with registers 20 and 2 1 , 20 is the high byte and 2 1 
is the low byte of the 1 6 bit address. 

With that background on 80 columns, you should be able to 
follow my conversion program. The program begins by clearing 
the 80 column chip with the block fill function. The destination 
address must be set at registers 18/19 (high byte/low byte). 
Then place the fill byte in register 31 (i.e. to clear or 255 to fill). 
Next, clear bit 7 of register 24 to select block fill, and place the 
number of memory locations to fill in register 30. Following the 
initial write to register 3 1 , there will already be one byte written. 
Selecting a word count (reg 30) will write to 256 bytes of VDC 
RAM. The program then blanks the screen with a simple process 
involving register 35 (display enable/begin). 

The next step, done with Ihe COPY routine, involves copying 
color memory from $lCO0-$iFFF (7168-8191) to $1300 
(4864). This preserves the screen so you can compare the two 
modes, or make adjustments to the color table and convert again 
without having to reload the hi-res picture. The colors are then 
converted with SHIFT to an 80 column equivalent, where 
possible- Because 80 columns consists of 8 dark shades and 8 
light shades, there wasn't an exact match for each of the 
composite colors. The process is to work down to a nibble (4 bits) 



and use that nibble as an offset to a 1 6 byte color lookup table. 
Otherwise, a 256 byte lookup table would be needed, and 
modifying one color would require 32 bytes to be changed to 
modify all occurrences of that color The offset method requires 
only one byte to be changed to fix all 32. The foreground and 
background also need to be reversed, as they work opposite in 
the two modes. The following chart shows the default color 
conversion table. This is stored in variable COLORS and can be 
modified where needed. 

40 Column becomes 80 Column 



00 Black 

01 White 

02 Red 

03 Cyan 

04 Purple 

05 Green 

06 Blue 

07 Yellow 

08 Orange 

09 Brown 

10 Light Red 

1 1 Dark Gray 

12 Medium Gray 

13 Light Green 

1 4 Light Blue 

15 Light Gray 



00 Black 
15 White 

08 Dark Red 
07 Light Cyan 

1 1 Light Purple 

04 Dark Green 

02 Dark Blue 

1 3 Yellow 

10 Dark Purple 

12 Brown 

09 Light Red 

01 Dark Gray 
06 Dark Cyan 

05 Light Green 

03 Light Blue 

14 Light Gray 



As you can see, no easy algorithm could make this translation, 
and not all colors have a perfect match, unless you would make 
more than one color become brown or red, etc. 

NexttheVIC-II screen at $2000-$3FFF (8192-16383) is sent to 
the VDC RAM with VICTOVDC. Because of my inexperience in 
machine language I made no attempt to write that routine from 
scratch. It is a modified version of the routine found in the 128 
Programmer's Reference Guide (Bantam Books). For more de- 
tails on that type of process, see Paul Durrant's program and 
article in the September issue. (Games from the inside Out) 

After the hires screen is transferred, the color can be put in. The 
HiTME rouhne simply sets the data pointer (reg's 18/19) to 
$2000 VDC (attributes) and copies the translated colors from 
$1300. The screen is then turned back on with UNBLANK and, 
. -voila! 

The process is very quick, especially if fast mode is used. As the 
machine language is one program, you can easily use it with 
other Basic programs, etc, I hope that you will not merely use 
the routine as it \s. but will experiment with the possibilities 
proven. The potential is even greater if you replace the 16K 
chips with 64K chips. My friend, Lowell, is now working on 
getting a 128 and will also install the 64K chips as I have done. 
He needed no further proof that the 128 in 80 columns can do 
INCREDIBLE color graphics. Til cover 64K in my next article. 
Until then, I strongly urge you to play around with all the 
registers to see what you can do. After all, look where it got me. 
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Basic demo For Color 80 


CL 


630data 39,133,254,162, 0,161,250, 32 




- 


LM 
KB 


640 data 94, 13, 32, 61, 13,198,254,208 
650 data 242, 165, 177,208, 21, 162, 0, 161 


KM 


100 rem save'O viewer,bas',8 


NG 


1 1 rem - * color 80 viewer * * 


LN 


660data250, 32, 94, 13, 32, 73, 13,198 


JM 


120 rem** matthew palcic "* 


LB 


670data156, 208,220, 169, 1,133,177, 76 


GP 


130: 


EJ 


680data255, 12,169, 0,133,177,162, 


CB 


140 graphic 1,1: graphic 5,1: sys decCc027"} 


FA 


690 data 161, 250, 32, 94, 13, 32, 87, 13 




: print'gcto40cos': graphic 0,1 


KB 


700data198, 155,208, 191, 96, 24,165,250 


JJ 


150 if peek(decCdOO')}<>198 then gosub 270 


EL 


710 data 105, 8,133,250,144, 2,230,251 




: rem position code 


LP 


720data 96, 56,165,251,233, 1,133,251 


LE 


1 60 print "file to load (or $ for dd directory)' 


EG 


730data165, 250, 233, 55,133,250, 96,230 


MA 


170 input ■>';f$ 


HM 


740 data 250, 208, 2,230,251, 96,162. 31 


HK 


1 80 if f$ = '$■ then scnclr: directory "dd* ': print 


DO 


750 data 142, 0,214, 44, 0,214, 16,251 




:^oto160 


KG 


760data141, 1,214, 96,162, 31,142. 


JH 


1 90 if f$="*' then goto 220 


BC 


770data214, 44, 0,214, 16,251,173, 1 


PO 


200 scnclr: graphic 1 


FE 


780 data 21 4, 96,162, 18,169, 32, 32, 96 


LL 


210bload(f$),p716a 


EM 


790 data 13,162, 19,169, 0, 32, 96, 13 


JF 


: 220 fast: sys decCcOO"): slow 


NH 


BOO data 1 69, 0, 1 33, 250, 1 69, 1 9, 1 33, 251 


U 


230getkeya$: graphic1,1 


BB 


SlOdala 32,163, 13,230,251, 32,163, 13 


NJ 


240 goto 160 


JJ 


820 data 230, 251, 32,163, 13,230,251, 32 


IH ■ 


260: 


PD 


830 data 163, 13, 96,160. 0,177,250, 32 


HH 


270forj = 3072to3522: read x: pokej,x 


KF 


840 data 94, 13,200,208,248. 96,162, 35 




: ch = ch + x: next 


NB 


850 data 32,110, 13,133,255.169, 0, 32 


FH 


280 if ch<>48663 then print "** checksum 


AH 


860 data 96, 13, 96,162, 35,165,255, 32 


CD 


error **': stop 
290 return 


LG 


870 data 96, 13, 96 






AK 


300: 


Source Code For Color 80 


r 

PE 


310data 32, 22, 12, 32,174, 13, 32,146 




BL 


320data 12, 32, 61, 12, 32,183. 12, 32 


JD 


1000 rem save"0:color 80.src',8 


HF 
AP 


330 data 122, 13, 32,187, 13, 96,162, 18 
340 data 169, 0, 32, 96, 13,232, 32, 96 


PA 
EC 


1010 rem ♦♦ source slart-up in power assembler 
format (aka buddy-1 28 system) 

1 020 sys4000 
1 030 - = $OcOO 


MA 


350 data 13,169, 0, 32, 94, 13,162, 24 


KA 


Jl 


aeodata 32,110, 13, 41,127, 32, 96, 13 


EL 


1040 .mem 


IM 


370data160, 64,162, 30,169, 0, 32, 96 


AJ 


1050; 


BN 


380 data 13,136,208,250, 96,169, 0,133 


DJ 


1060 ; color 80 color hi-res 


BN 


390data250, 169, 19,133,251, 32, 88, 12 


AF 
WK 


1070 ; composite to rgb converter 
1080; matthew pa cic- 16kv2.1 


BK 


400data230,251, 32, 88, 12,230,251, 32 


L 


1090; 


JN 

1 \ 


410 data 88, 12,230,251, 32, 88, 12, 96 


PL 


1100 jsr clear ;main subroutine 


CK 


420 data 160, 0,177,250,133,252, 74, 74 


KG 


1110 jsr blank ;table 


08 


430 data 74, 74,170,189,130, 12,133,253 


KG 


1120 jsr copy 


HN 


440 data 165, 252, 10, 10, 10, 10, 74, 74 


DB 


1130 jsr shift 


Nl 


3 3 F F ? 3 1 

450data 74, 74,170,189,130, 12, 10, 10 


BD 
CK 
CA 


1140 jsr victovdc 
1150 jsr hitme 
1160 jsr unbank 


MH 


460 data 10, 10,101,253,145,250,200,208 


HH 


470data217, 96, 0, 15, 8. 7, 10, 4 


OH 


1 1 70 rts 


FM 


480 data 2, 13, 11, 12, 9, 1, 6, 5 


CB 


1180; 


CN 


490 data 3, 14,169, 0,133,250,133,252 


KE 


1 190 clear = * ;c ear vdc w/block fil 


EG 
CA 


500data169, 28,133,251,169, 19,133,253 
510data162, 4, 32,173, 12,230,251,230 


GE 

ME 

IK 


1 200 Idx #18 ;set data pointer to '■ 
1210 Ida #0 ;for start of hires 
1220 jsr writer 
1230 inx 


JK 


520 data 253, 202, 208, 246, 96, 1 60, 0, 1 77 


■ ■ \ 

KK 


EG 


530 data 250, 1 45, 252, 200, 208, 249, 96, 1 62 


ML 


1 240 jsr writer 


HL 


540data 25, 32,110, 13, 9,128, 32, 96 


FE 


1250 Ida #0 ;set fil byte loi) 


GG 


550data 13,162, 20,169, 32, 32, 96, 13 


MC 


1260 jsr write 


M 


560data162, 21,169, 0, 32, 96, 13,162 


PB 


1270 tdx #24 ;c1earbit7of 


JO 


570data 12,169, 0, 32, 96, 13,162, 13 


El 

FJ 


1 280 |sr reeder ;register 24 to 
1290 and #127 ;select bfock f ill 


10 


580data169, 0, 32, 96, 13,162, 1,169 


IP 


1300 jsr writer 


DE 


590data 40, 32, 96, 13,169, 32,133,251 


LC 


1 31 Idy #64 ;dear 64 pages (64^256 = 


, HD 


600 data 169, 0,133,250,162, 18, 32, 96 




16384 bytes toe ear) 


1 EJ 


610 data 13,232, 32, 96, 13,133,177,169 


PK 


1 320 Idx #30 ;reg 30 is word count 


ID 


F 1 p 3 3 1 

620 data 25,133,155,169, 7,133,156,169 


BE 1 330 Ida #0 ;0 words = 256 byles 
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CL 


1340; 






Bfvl 


2020 


-byte 1 ; 


dark gray 


AL 


1 350 G earl 


= « 




GK 


2030 


byte 6 ; 


medium gray 


ED 


1360 


jsr writer 


H 


HI 


2040 


.byte 5 ; 


light green 


FB 


1370 


dey 




DB 


2050 


.byte 3 ; 


light b ue 


fE 


1380 


bne clearl 




NJ 


2060 


.byte 14 ; 


light gray 


EO 


1390; 






Ml 


2070; 






EG 


1400 


rts 




EJ 


2080 copy 


= ^ 




IP 


1410; 






FB 


2090 


Ida #0 




KE 


1420 shin 




ransatecoorinfo 


OK 


2100 


sta $fa 


copy CO or ram 


B 


1430 


Ida #0 




EO 


2110 


sta $fc 


from norma vic-ii 


JL 


1440 


sta $fa 




GJ 


2120 


da #$1c 


.screen ($1c00) 


NF 


1450 


Ida #$13 ;^ 


:o or start $1300 


OG 


2130 


sta $fb 




E 


1460 


sla $1b ;( 


:;onvert$1300 


AH 


2140 


Ida #$13 


:copyto$l300 


GO 


1470 


jsr conv ; 




II 


2150 


sta $fd 




LH 


1480 


Inc $tb ;( 


convert $1400 


ON 


2160 


Idx #4 


;copy 4 pages 


OA 


1490' 


jsr conv 




AP 


2170; 






AJ 


1500 


inc $fb ;< 


:onvert$1500 


IL 


2180 copy 1 


in " 




CC 


1510 


jsr conv 




J! 


2190 


jsr copyit 




FK 


1520 


inc $fb ;i 


convert $1600 


GJ 


2200 


inc $fb 




GD 


1530 


jsr conv 




GK 


2210 


inc $fd 




AP 


1540 


rts 


', 


DG 


2220 


dex 




El 


1550; 






OJ 


2230 


bne copyl 




DL 


1560 conv 


= ^ 


( 


GD 


2240; 






NG 


1570 


Idy #0 




GL 


2250 


rts 




CK 


1580; 






KE 


2260; 






BH 


1590 nibbles 


= * 

^ 


convert foreground 


MO 


2270 copyit 


• 




KF 


1600 


da {$fa),y ;getcolor 


DD 


2280 


Idy #0 




JG 


1610 


sta $fc 




[G 


2290; 






NN 


1620 


Isr ; 


shift foreground down 


EJ 


2300 copybyte = • 




PH 


1630 


Isr ; 


to bottom nibbe 


AE 


2310 


da ($fa).y 




BE 


1640 


Isr 




AJ 


2320 


sta ($fc),y 




LE 


1650 


sr 




KP 


2330 


iny 




HE 


1660 


tax 




PN 


2340 


bne copybyle 


PN 


1670 


da cobrs.x ; 


get new value 


EK 


2350; 






OF 


1680 


sta $fd ; 


store foreground 


EC 


2360 


rts 




KD 


1690 


Ida $fc ; 


retrieve ongJna color byte 


IL 


2370; 






BG 


1700 


ast ; 


shift eft to c ear top nibb e 


CG 


2380victovdc = 


itrans ate vic-ii hires to vdc hires 


JF 


1710 


asl 




IB 


2390 


Idx #25 


; set register 25 


DG 


1720 


asl 




KJ 


2400 


jsr feeder 


;bit map mode 


NG 


1730 


asl 


. 


00 


2410 


ora #128 


;biI7 


PK 


1740 


Isr ; 


move back to bottom nibble 


F 


2420 


jsr wri er 




PK 


1750 


Isr 




CI 


2430 


dx #20 


;set attributes at $2000 (vdc ram) 


JL 


1760 


Isr 




BL 


2440 


da #$20 




DM 


1770 


Isr 




GH 


2450 


jsr writer 




PL 


1780 


lax 




KH 


2460 


Idx #21 




HF 


1790 


da coors.x: 


,get new value 


BJ 


2470 


Ida #0 




NM 


1800 


as 


;move background to top nibb e 


EJ 


2480 


jsr writer 




NL 


1810 


asl 




FD 


2490 


dx #1 


;set vdc screen width (reg 1) 


HM 


1820 


asl 




JO 


2500 


fda #40 


;to 40 columns 


BN 


1630 


asl 




CL 


2510 


jsr writer 




DL 


1640 


adc $fd 


; combine foreground and 


MF 


2520 


Ida #$20 


;start of vic-ii hires $2000 








background 


OP 


2530 


sa $fb 




CL 


1850 


sta ($fa),y 




HN 


2540 


da #0 


■ 


EC 


1860 


iny 




PA 


2550 


sta $fa 




NE 


1870 


bne nibbles 




IP 


2560 


Idx #18 


;data pornter (vdc) to $0000 


EE 


1880 


rts 




KG 


2570 


jsr writer 


;for start of vdc bit map 


IN 


1890; 






AP 


2580 


inx 




CA 


1900 colors 


= t 


;40 col color 


CA 


2590 


jsr writer 




KE 


1910 


,by!eO 


;back 


PE 


2600 


sta $b1 


; column counter 


OA 


1920 


byte 15 


;wfiite 


MH 


2610 


da #$19 




KG 


1930 


.bytes 


;red 


OD 


2620 


sta $9b 




JH 


1940 


.byte 7 


;cyan 


fvIL 


2630; 






OC 


1950 


.b/telO 


; purple 


HJ 


2640again1 


= n^ 




AL 


1960 


.byte 4 


; green 


CO 


2650 


Ida #7 


;6 bytes per character (0-7) 


F 


1970 


-byte 2 


;bue 


JG 


2660 


sta $9c 




KF 


1980 


, byte 13 


;ye low 


EO 


2670; 






10 


1990 


.bylell 


; orange 


OH 


2680 again 


= t 




DH 


2000 


.byte 12 


; brown 


MK 1 2690 


da #$27. 


;40 columns (0-39) 


PH 


2010 


.byte 9 


; ight red 


BL ^ 2700 


sla $fe 
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MA 


2710; 






C 


' 3400 writer 


^ 


* 


;write to vdc register 






PG 


2720 tranhj 


^ 


^ 


CJ 


3410 


stx 


$d600 








BP 


2730 


Idx 


#0 


CN 


3420; 












JL 


2740 


Ida 


($fa,x) 


DB 


3430 writel 


z^ 


t 








OP 


2750 


jsr 


write 


ME 


3440 


bit 


$d600 


;wait for slalus bit to go high 






CD 


2760 


jsr 


add 


LO 


3450 


bp[ 


writel 








! EL 


2770 


dec 


$te 


KP . 


3460; 












LC 


2780 


bne 


tranhi 


JO 


3470 


sta 


$d601 


;write value 






MP 


2790; 






El 


3480 


rts 










DJ 


2800 


Ida 


$b1 


IB 


3490; 












CE 


2810 


bne 


haif 


BJ 


3500 reed 


= 


+ 


;read vdcram 




1 


KH 


2820; 






GJ 


3510 


Idx 


#31 






: ^^ 


2830 


Idx 


#0 


GD 


3520; 












NB 


2840 


Ida 


($fa,x) 


LM 


3530 feeder 


= 


* 


;readvdc register 






CG 


2850 


jsr 


write 


EB 


3540 


Stx 


$d600 








LM 


2860 ^ 


jsr 


increase 


EF 


3550; 












IP ! 


2870 


dec 


$9c 


LN 


3560 reedl 


= 


* 








GM 


2880 


bne 


again 


CM 


3570 


bit 


$d600 


; wait for status bit 1o go high 






AM 


2890; 






M 


3580 


bpl 


reedl 








BE 


2900 


Ida 


#1 


MM 


3590 ; ■ 












PO 


2910 


sta 


$b1 


FL 


3600 


Ida 


$d601 


; read value 






HO 


2920 


imp 


again 


GA 


3610 


rts 













2930; 






KJ 


3620; 












NK 


2940 halt 


= 


w 


AL 


3630 hi me 


i^ 


• 


^transfer color from ram lo vdc 






BH 


2950 


Ida 


#0 


LO 


3640 


Idx 


#18 


;datapoin!erto $2000 (attributes) 






BH 


2960 


sta 


$b1 


LG 


3650 


Ida 


#$20 






BO 


2970 


Idx 


#0 


AD 


3660 


sr 


writer 






■ JK 


2980 


Ida 


{$fa,x) 


KE 


3670 


Idx 


#19 








00 


2990 


jsr 


write 


LE 


3680 


Ida 


#0 






1 


GF 


3000 


jsr 


upthere 


OE 


3690 


jsr 


writer 






' 


Bl 


3010 


dec 


$9b 


PF 


3700 


hda 


#0 






■ 


EL 


3020 


bne 


again 1 


HJ 


3710 


sta 


Sfa 








WE 


3030; 






DD 


3720 


[da 


#$13 


.colors are at $1300 






MM 


3040 


rts 




CJ 


3730 


sta 


$lb 


;transfer$1300 






AG 


3050; 






JF 


3740 


jsr 


ahead 








MP 


3060 add 


:^ 


* 


L 


3750 


irK^ 


$tb 


;transfer$1400 






EH 


3070 


cic 




NG 


3760 


jsr 


ahead 








DO 


3080 


Ida 


$fa 


CK 


3770 


inc 


$tb 


;transfer$1500 






PP 


3090 


adc 


#8 


B 


3780 


jsr 


ahead 








FD 


3100 


sta 


$fa 


JL 


3790 


inc 


Sfb 


;transter$1600 






IN 


3110 


bcc 


addl 


FJ 


3800 


jsr 


ahead 








GK 


3120; 






OM 


3810 


rts 













3130 


inc 


$fb 


CG 


3820; 












KL 


3140; 






DP 


3830 ahead 


^ 


K 








FE 


3150 addl 


= 


4 


LE 


3840 


Idy 


#0 








EE 


3160 


rts 




A! 


3850; 












\H 


3170; 






CF 


3860 aheadi 


= 


« 








m 


31 80 increase = 


* 


GG 


3870 


Ida 


($fa),y 


;read ram 






HP 


3190 


sec 




CO 


3880 


)sr 


write 


; write to vdc 






OF 


3200 


Ida 


$fb 


CB 


3890 


iny 










H 


3210 


sbc 


#1 


lA 


3900 


bne 


aheadi 








AL 


3220 


8td 


$»b 


ML 


3910; 












JH 


3230 


Ida 


Sfa 


MD 


3920 


rts 










AA 


3240 


sbc 


#$37 


AN 


3930; 






■ 






LM 


3250 


sta 


Sta 


OH 


3940 blank 


^ 


V 


;b ank 80 cols 






\K 


3260 


rts 




KF 


3950 


Idx 


#35 


r 






MD 


3270; 






BP 


3960 


jsr 


reeder 








AK 


3280 upthere 


= 


t 


GC 


3970 


sta 


$ff 


;store current screen params 






FN 


3290 


irtc 


Sfa 


HH 


3980 


Ida 


#0 








00 


3300 


bne 


upl 


A 


3990 


jsr 


writer 


;bankit 






EG 


3310; 






Ml 


4000 


rls 










GP 


3320 


inc 


Sfb 


AC 


4010; 












iH 


3330; 






DO 


4020unblank = 


* 


; re store screen 






EH 


3340 upl 


= 


4: 


KK 


4030 


idx 


#35 








CA 


3350 


rts 




GG 


4040 


Jda 


$ff 


; retrieve screen params 






GJ 


3360; 






AL 


4050 


jsr 


wnter 


; re store pa ram 






MM 


3370 write 


= 


" ;writetovdcram 


IM 


4060 


rts 










EB 


3380 


Idx 


#31 


MP 


4070; 










EL 


3390; 






MM 


4080 end 






1 
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Twin-SO Screen 

For the Commodore 128 



D,J. Morriss 
Toronto, Ontario 



Use the extra VDC memory for another 80-column screen 



The 8563 Video Display Controller (VDC) chip that controls tlie 80- 
column screen on the C-1 28 has its own RAM memory completely 
outside the C-128 memory space. The VDC uses 8 K bytes to store 
the complete 512-member character set, 2 K bytes for screen 
memory, and another 2 K bytes for attribute memory (one byte of 
each for each screen location in the 80 column by 25 line screen). 
Thus, a complete screen and character set requires 12 K bytes. 
Since 12 K byte chips are somewhat scarce, the VDC in fact has 1 6 K 
bytes of RAM available. Various uses have been proposed for this 
extra memory: a tiny RAM disk, for example. Coincidentally, the 
unused 4 K bytes are exactly what is needed for a completely 
separate screen memory and attribute memory. This program sets 
up such a screen, and allows you to toggle between the two screens, 
in either immediate or program mode. 

What Must Be Done 

In onler to support such a double screen, both the VDC and the 
screen editor must know where, in VDC RAM, screen memory and 
attribute memory starts for each of the two screens. The VDC needs 
to know where to look for information when it is drawing the 
screen, and the screen editor needs to know where to put informa- 
tion in response to PRINT commands. The VDC looks to its own 
internal registers $0C and $00 to contain the address, in VDC RAM, 
of the start of screen memory, while registers $14 and $15 contain 
the address of the start of attribute memory. Both these register 
pairs are in high-byte, low-byte order; just the reverse of normal 
8502 order. The default 80-column screen uses the first 2 K bytes of 
VDC RAM for screen memory, and the second 2 K byte block for 
attributes. 1 have chosen to leave these untouched, and set up the 
second screen memory in the unused region from 4 K to 6 K, and 
the second screen attributes from 6 K to 8 K; above 8 K, character 
RAM starts. So to inform the VDC about the new memory alloca- 
tion, all that is necessary is to toggle VDC register SOC between the 
values and $10, and toggle VDC register $14 between the values 
$08 and $18, 

The screen editor must also know where to put things. It relies on 
C-128 RAM location $0A2E, which contains the page of the start of 
screen memory in the VDC RAM, and location $0A2F, which 
contains the page of the start of attribute memory in VDC RAM. 
Since only the page is stored, the screen editor insists that both 
screen memory and attribute memory start on page boundaries, 



although the VDC does not make the same demand. So to inform 
the screen editor about the new memory allocation, it is only 
necessary to toggle $0A2E between the values and $10, and 
tc^le $0A2F between the values $08 and $18. 

it is also necessary to reset values in other VDC registers and in C- 
128 RAM. These locations contain information about cursor loca- 
tion, windows that are enabled, locations of tab stops, quote mode, 
number of inserts, type and size of cursor etc. Specifically, locations 
from $E0 to $F9, $0354 to $0361, and $0A2B in C-128 RAM all 
contain information that defines the precise nature of a screen. 
These are the locations that the screen-editor routine SWAPPER 
switches when you transfer between 40 and 80-column screens. 
Similarly, in the VDC, registers $0A, $0B, $0E, $0F, $18, $1A, and 
$1D contain information that also defines the precise nature of a 
screen. When you toggle between 80- column screens, the values 
in all these locations must be stored, while stored values are placed 
in all these locations. 

What Does It 

The switch between screens is triggered by a custom ESCape 
sequence. There are twenty-seven (twenty-eight?) default ESCape 
sequences programmed into the C-128 ROM; they add a lot of 
power and convenience lo the screen editor. Commodore also 
designed-in flexibility; at the point in the ESCape sequence han- 
dling routine where the next key after the ESC has been detected 
and stored in the accumulator, the ROM routine jumps through an 
indirect address in RAM at $0338 - $0339, before implementing the 
default ESC sequences. Resetting this vector to point to a new 
routine opens up the possibility of two hundred and fifty-six 
different ESCape sequences! 

In this application, the sequence ESC - UP ARROW is used to toggle 
between the two screens. As is the case with the normal ESCape 
sequences, this means pressing and releasing the ESC key, then 
pressing the UP ARROW key. In program mode, PRlNTing 
CHR$(27) and an UP ARROW (or CHR$(94)) will accomplish the 
same effect. The UP ARROW is not a cursor key; it's the exponentia- 
tion symbol, between the RESTORE and the ASTERISK keys, 

if you prefer some other sequence, look at the sixth number in the 
fourth DATA statement in the BASIC loader program, 






The Trantoctor 



56 



November 1987: VOIuma 8Jiflue03 



RELOCATING/TWIN. Ifs 94, the decimal CHR$ value for the UP- 
ARROW. Replace this one byte with the CHR$ code for the character 
of your choice, and the change is made. \i you choose one of the 
default ESCape sequences, this custom application wiil lake prece- 
dence, as long as you are in 80-column mode, since this special 
handling routine comes before the default routine. 

What Do You Get 

The two 80 - column screens available with this program are 
completely equal and independent. Each screen has its own tab 
settings, colors, cursor type, and windows. Either screen can be set 
to reverse or normal mode, or cleared, independently of the other. 
When you t(^gle between the two screens, the cursor returns to the 
spot (and window) where it was when you left the screen. If the 
cursor for that screen was a non-flashing underline when you left, it 
wiil be the same when you come back. If you have used some of the 
VDC registers to change the size of the block cursor, that new cursor 
will remain in effect for the particular screen in which it was set up. 
if you are in quote mode, typing a program line when you tc^gie 
out, you will be in quote mode when you tc^gle back. In fact, it's 
easy to lose track of which screen you're looking at. lx)caIion $0A2E 
iszeroforthenormaiscreen,and$80if the new screen is active. But 
there is no real reason to worry about this, since THE TWO 
SCREENS ARE COMPLETELY EQUIVALENT!! 

In one important way, this double screen arrangement is superior to 
the windows available on the C-128. If you list a long program line, 
one that runs to two or more physical lines, the screen editor makes 
a note of this in what is called a line-link map, found in C-128 RAM 
from $035E to $0361. If you create, and then collapse a window, 
this line-link map is destroyed. If you were to press RETURN on 
one of these long lines, only the one physical line would be 
recognized. When you toggle between the Twin-80 screens, how- 
ever, the line-link map is stored and replaced with the appropriate 
one from storage. 

Who Needs It 

If you want to be able to display twice as much in the way of results 
from a program, you need it. If you want a program to PRINT 
constant progress reports, while results are left secure and un- 
scrolled on the other screen, you need it. If you would like to look at 
two parts of a long prc^ram listing at the same time, you need it. If 
you're using the TRACE utility, and would like to list various lines of 
the program, without destroying the TRACE values, you need it. If 
you have a HBLP screen, full of information that you keep thumb- 
ing through manuals for, you certainly need it. Or if you just hate the 
idea of 4,096 bytes of memory going to waste and never being used, 
you need it. 

The Programs 

RELOCATING/TWIN 

Free RAM in Bank 15, where this routine is located, is getting 
cluttered up with various custom routines, which always seem to 
compete for the same space. To alleviate this problem somewhat, 
this BASIC loader for TWIN-80 is a relocating one. The program 



asks you where in memory to put itself, then puts itself there and 
activates itself - if you just press RETURN in response to this 
prompt, the program will start at location 6144, which should be 
safe. The bytes that must be adjusted for each new starting point are 
flagged by minus values in the DATA statements. The program does 
all the adjusting; just be careful not to miss any minus signs. There 
are many possible locations in Bank 15 RAM (see Table 1}; surely 
they won't all be occupied by some other important utility. If you are 
really tight for space, the first 32 bytes of the routine are needed only 
for installation, not for the actual routine. 

Although the entire routine runs to 224 bytes, there are only 206 
values in the DATA statements. Each of the 18 negative values 
generates two bytes to be POKEd into memory. 

Remember, if you choose to use a different ESCape sequence to 
switch screens, both the VERIFIZER report code for the DATA line, 
and the total checksum, CK, will be off. 

TWIN-80.ASM 

This prc^ram, my first with a symbolic assembler, was written using 
the "Power Assembler" (formerly "Buddy") 128 Macro-Assembler 
from Spinnaker. As an alternative to doing the same job using the 
built-in Monitor assembler. Buddy leaves me ecstatic, verging on 
euphoric- If you have a different assembler, you should have no 
trouble converting the power assembler source code to work with it; 
the most likely thing that you'll have to change are the long symbol 
names with the embedded apostrophes. So, for example, the label 
"save'bank" could be changed to "SAVBNK" to work with another 
assembler. 

The set-up routine simply resets the ESCVEC vector, temporarily 
sets Bank 15, momentarily activates both screens to clear them of 
garbage, and restores the bank sethng before exiting. 

The new ESCape handler checks for the special ESCape sequence, 
and that you are using the 80-column screen, before switching all 
the necessary locations. 

Communication with the VDC is aided by the two ROM routines, 
READREG at SCDDA and WRITEREG at $CDCC. Both routines 
move information between the accumulator and the VDC register 
whose number is found in the X register. The n^ulines take care of 
the 'handshaking" between the C-1 28 and its independent-minded 
VDC. 

What Next 

Clearly, we haven't heard the last of multiple screens for the VDC. 
For example, if you are willing to live with one colour for the entire 
screen, no under-lining, no flashing, and only one character set, 
you can disable the attributes. Then the two, 2 K byte blocks of 
attribute memory would be freed up to provide room for two more 
independent screens; a total of four. Since disabling the attributes 
eliminates one of the character sets, this means half of the 8 K of 
character RAM is available; two more screens, for a total of six! Or 
1 50 lines of 80-column text, just a key-stroke or two away! 
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Tablet 

AVAILABLE RAM iN BANK 15 



OC 
LF 
OP 

IG 

NJ 

NM 

AJ 
GG 
MD 
KM 



E 
MK 
PG 

Al 
CK 

OH 

II 

HL 
GK 
KK 
NE 
PA 
MN 
IN 
FK 
Al 
ED 
CO 
AD 
KN 
PC 
OP 
CG 
DD 
AG 
EE 
Al 



Location (Dec) 



1024 
2816 
3072 
3328 
3584 
48fi4 
7168 



2047 
3071 
3327 
3583 
4095 
7167 
16383 



Purpose 

40-column screen 
Cassette buffer 
R.S-232 Input buffer 
RS-232 Output buffer 
Sprite storage area 
Applications Prc^ram area 
High Resolution Screen 
( after GRAPHIC 1 ) 




Twin-80: Relocating BASIC Loader 

1000 rem ♦•■* relocating loader for 'twin-80' *** 
1010 rem ••+ by d. j. morriss, toronto, Ontario '** 
1 020 fast :cl< = 
1030 inpufstarting location [decimal)[7 spaces]6144 

[6 left]"; ad : if ad>16165 then 1030 
1 040 for k = ad to ad + 223 
1 050 read x: ck = ck + x : if x = >0 then poke k, x 

: goto 1 080 
1 060 tib = int((ad + abs(x))/256) : lb = ad + abs(x)-256*tib 
1 070 poke k, lb : k - k + 1 : poke k, hb 
1 080 next 
1 090 if ck <> 1 5424 then prinf+*' error in data 

statements ♦*•■: stop 
1 1 00 hb = int((ad + 32)/256) : poke ad + 6, hb 
1110lb = ad + 32-256'hb: poke ad+ 1,1b 
1 1 20 sys ad 

1 1 30 printiprint" twin-80 screen activated!' 
1140 print:prinf press escape, then up-arrow, to toggle 

between screens! ■ 
1 150 prinl:prinf bsave from "ad" to "ad + 223' (decimal) 

tosaveobj program!" 
1160 end 

1170data 169, 32, 141, 56, 3, 169, 19, 141 
llSOdata 57, 3, 32,-121, 169, 147, 32, 210 
llOOdala 255, 32,-140, 169, 147, 32, 210, 255 
1200 data 32,-140, 76,-133, 201, 94, 240, 3 
1210data 76, 193, 201. 165, 215. 41, 128, 240 
1220data 247, 32,-121, 32,-140, 173, 43, 10 
1230data 174,-167, 142, 43, 10, 141,-167, 162 
1240 data 25, 181, 224, 188,-169, 157,-169, 148 
1250 data 224, 202, 16, 243, 162, 13, 189, 84 
1260data 3, 188,-195, 157.-195, 152, 157, 84 
1270data 3, 202, 16, 240, 160, 6, 190,-209 
1280data 32, 218, 205, 72, 185,-216, 32, 204 
1290data 205, 104, 153,-216, 136, 16, 236, 76 

173, 0, 255, 141,-168, 169. 
0, 255, 96, 173,-168, 141, 



1300 data -133, 

1310data 141, 

1320 data 255, 96, 

1330 data 46, 10, 

1340 data 47, 10, 

1350 data 20, 32, 

1360 data 16, 0, 



173, 

162, 

73, 



46, 

12, 
16, 



204, 205, 
18, 24, 



10, 73, 16, 141 

32, 204, 205, 173 

141, 47, 10, 162 

96, 96, 0, 

0, 0, 79, 



1370 data 0, 3, 0, 0, 24, 

1380 data 7, 7, 0, 0, 0, 

1390data 0, 128, 128, 128, 128, 

1400 data 128, 128, 128, 0, 0, 

1410 data 11, 14, 15, 26. 24, 

1420 data 16, 0, 240, 32, 231, 255 
1430 end 
1440scratch"relocating/twin':dsave"relocating/twin" 



79, 94, 27 

0, 0, 

128, 128, 128 

0, 0, 10 

29, 160, 231 



TWin-80: Source Code in Buddy 1 28 Format. 
Load address: 7169 



GP 


1000 scratch 'Iwin/80 


I'.dsave "twin/so ".end 


IG 


1010, 








CH 


1020; 








C 


1030, twin 


-80. asm 




Gl 


1040; 








NF 


1050, submitted by d i mornss 


LO 


1060, 


769co>;we avenue 


AL 


1070; 


toronto onlario 




PK 


1080, 


m4c3c6 




LI 


1090; 


(416)4662791 (home) 


PC 


1100, 


(416)9671212(work> 


NF 


1110; 


ext3276 




II 


n30sys40O0 








KO 






\0 


1140: 








CG 


1150 mode 


= 


Sd7 


;bit7 ^ 1 for eo column 


DE 


1160 pD! 


= 


SeO 


;start of zero page screen parameters 


LD 


Ii70escvec 


= 


$0338 


; ocation of escape routine wedge 


JE 


llSOlabmap 


= 


S0354 


;start of active screen labs and \\r\e Irnks 


PF 


1 1 90 curmod 


= 


S0a2b 


;shadow tor vdc reg it $0a 


EP 


1200 vm3 


^ 


tOa2e 


;ram shadow for hi byie of vdc 


KA 


1210 






, start of screen 


OA 


l220vfTi4 


S 


S0a2f 


;ram shadow lor hi byte of vdc 


MD 


1230. 






; start of attributes 


JD, 


1240 escape 


= 


Sc9cl 


;norma escape handling rouitne 


IG 1 


1 250 wnlereg 


= 


Scdcc 


iwrites to vdc register 


HA 


1 260 readreg 


= 


Scdda 


;readsfrom vdc register 


HJ 


1 270 mmucr 


= 


SfFOO 


;find bank setting here 


FN 


1 280 jbsout 


= 


$Ha2 


:kernaf print routine 


AH 


1290 tab e'Vei^gih ■ 


= 26 


;number of values in table 1 


EH 


1300table2lenglh 


= 14 


;number of values in table 2 


NB 


laiOtableS'englh ■ 


= 7 


, number ol values in tables 3 and 4 


MJ 


1320: 








DD 


1330;"""" end olvanabes *■•-*■ 


EB 


1340.or9$1300 




.assembles into empty ram 


KO 


1350 .mem 








BE 


1360 ,"« set-up routine ■■• 




OM 


1370: 








NP 


1380. 


da 


*<new'handier ;resetescapeveolor 


NH 


1390: 


sla 


escvec 


:to point to new 


JM 


1400 


ida 


#>new'hander .routine 


BJ 


1410: 


sta 


escvec + 1 




AA 


1420: 








DA 


1430: 


jsr 


save' bank 


;save bank and set bank 15 


EB 


1440 








NF 


1450. 


Ida 


#$93 


idear low screen 


PD 


1460' 


|Sr 


jbsoul 




CD 


1470 








CK 


1480. 


jsr 


vdc'togge 


;configure for high screen 


GE 


1490' 








NK 


1500 


Ida 


#$93 


;c!earhigh screen 


BH 


1510: 


jsr 


jbsoul 


n 


EG 


1520: 








CP 


1530: 


1ST 


vdc'loggie 


; configure for low screen and 


EE 


1540: 


imp 


1 oid'banl^ 


.restore bank setting 


DA 


1550: 






;using rts to get to basic 


MJ 


1560: 








HB 


I570;-»endotsel- 


up routine •■ 




AK 


1580 








GM 


1590 ;-» new ecape handing rouiine- 


EL 


1600. 








LI 


leiOnew'handlei^ 


H 




LB 


1620. 


anp #$5g 


; is it up arrow 


AE 


1630 


beq do'Jt 


;yes, so go to special routine 


EJ 


1640 norm out 


imp escape 


; no, so go normal route 


GO 


1650: 


. 







I 
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JN 


1660 do' IT 


Ida 


mode 


;is 80-cofumn being used 


KH 


1670. 


and 


#% 10000000 


CO 


1680: 


beq 


nofm'oLJ[ 


;no, so go normal 'oute 


OA 


1690: 








BB 


1700' 


jsr 


save' bank 


; save bank and go bank 15 


CC 


1710. 








CJ 


1720 


(Sf 


tfdc'toggle 


; switch memories 


GD 


1730. 








CH 


1740: 


da 


cijrmod 


;swiLch cu^mod and lab eO 


PG 


1750 


Jdx 


tableO 




JH 


1760. 


stx 


cur mod 




BM 


1770' 


sta 


tableO 




IG 


1780. 








c^ 


1790 


Idx 


Stable' I'lenglh-l ; interchange values in 


GA 


1800 loop 1 


Idd 


pnt.x 


, table 1 with page 


FO 


1810. 


Idy 


tabel.x 


;tTom SeO (o $f9 


OP 


1820: 


sta 


tablel.x 




CP 


1830: 


sty 


pnt,x 




MN 


1840: ^ 


dex 






LG 


1850- 


bpi 


oopi 




IL 1 


1860. 








BG 


1670. 


Idx 


#table'2' englh-i Jnlerchangethetabn 


PL 


1880l00p2 


Ida 


labmap.x 


;and line link maps 


DK 


1890 


Idy 


table2,x 


;with values in table 2 


BF 


1900. 


sta 


table2.x 




LJ 


1910' 


lya 






IL 


1920 


sta 


tabmap.x 




GD 


1930: 


dex 






IM 


1940: 


bpl 


Ioop2 




CB 


1950: 








Dl 


1960 


Idy 


fflaNe'S'lengJh-l 


GF 


1970loop3 


ld« 


table3,v 


; interchange the values 


LH 


19K). 


jsr 


readreg 


;in table 4 with the 


10 


1990: 


pha 




lvalues in seJecled vdc 


LO 


2000 


Ida 


lable4,y 


.registers 


KM 


2010: 


isr 


write reg 


; Teg isle rs are listed in 


EK 


2020 


pLa 




,tabe3 


KN 


2030: 


sTa 


table4,y 




FK 


2040 


dey 






JD 


2050: 


bpJ 


oop3 




A\ 


2060: 








AP 


2070: 


imp 


od'bank 


;gel old bank, and use its 



BL 

ED 

iK 

FE 

JP 

ND 

GM 

OA 

KC 

HJ 

iP 

PF 

AK 

DM 

JL 

KC 

IM 

FM 

BE 

LD 

EC 

JD 

AH 

BM 

NK 

LH 

FF 

KG 

FE 

GN 

AM 

DK 

ON 

KL 

KG 

BN 

CF 

10 

Al 

P? 

GD 

GJ 



2080 ;rts to return lo basic 

2090 ;"-endot new handler routine "" 

2100 

2110;— subFOulines<»-< 

2120 ,♦■■ routine to stash bank & set bank to 15 •- 

2130save'bank Ida mmucr save bank in 



sla lableO+1 

Ida #$00 

sta mmucr 
rte 



table 0, then set 
to bank 1 5 



2140: 

2150 

2160. 

2170: 

2180: 

2190 ;>•**■ routine to fetch and reset old bank »«>" 

2200old'bank Ida tabieO + 1 ;geioldbank 

2210 sta mmucr ;and store <nmimu 

2220 fts 

2230: 

2240 > rouline to toggle between screens in vdc memory ■• 



2250 vdc' toggle Ida vm3 



eor #$10 

sta vm3 

Idx #$0c 

jsr wrltereg 

Ida vm4 

eor mo 

sta vm4 

Idx #$14 

|Sr write reg 
rts 



; toggle value ot vm3 
;betweenS0OandSlO 

;store new value in 
,vdc register # $Qc 

.toggle value otvm4 

.between $08 and J15 

istcre new value in 

:vdc register* $14 



■ •-- 



2260: 

2270. 

2280 

2290. 

2300 

2310: 

2320: 

2330: 

2340. 

2350: 

2360. 

2370 ;•■•• end of subroutines 

2380. 

2390 tableO = * 

2400. byte 96,0 

2410tablel - ' 

2420 byteO,l6,0,18,24,0,0,79,0,0,3.0A24,79,94,27,7,7,0,0,0,0,0,0,0 

2430 tabie2 = " 

2440. byte 128,128,128,128.1 26,128,1 28,128,1 28,128,0.0.0.0 

2450 tables = . 

2460 byte 10,11,14,15,26,24,29 

2470 (able4 = ■ 

2480 .byte 160,231,16,0,240,32,231 
2490 ,end 



iWitinigtt Issemtilp ^p^tem 

Symbolic Assembler for the C-64 and a Disk Drive 

* Written in lOC/r Machine Language 

* Not a Snail-paced BASIC parasite 

* No Subroutine Calls made to $AOOO-BFFF 

* All Disk Operations Executed Through 
Standard KERNAL Jump Table 

* Not Copy Protected: Archi\'al Backup Encouraged 

* Can use RAM under ROM for Object Generation 
or for Storage of Text and Symbolic Labels 

■*■ Extensive Disk Support 

* 32 Immediate Commands 

* 26 Powerful Pseudo Opcodes 

it 26 User Implemented Pseudo Opcodes 

* Move, Copy, Swap» Delete, Renumber 

* Auto Line Numbering for Easy Text Entry 

* Fon^'ard or Reverse Object Generation- 
(Good for Spelling Strings Backward) 

* Addition, Subtraction, Multiplication, Division, 
Shift left, Shift right 

Documentation Includes Full Listing 
of Zero Page as Employed by MAS 



SCREEN DISPLAY SAMPLES 




$29 



95 All Orders Shipped 1st Class 



Available Exclusively From 

Mountain Wizardry Software 

EO. Box 66134 

Portland, OR 97266 
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I 



Memory Lane 



Psssst, . . .wanna know a really 
sneaky place to stash stuff in tfie 1287 



Chris Miller 
Kitchener, ON. 



By now the MMU (Memory Management Unit) at $FFOO in the 
C128 is fairly well understood. But there is more, a lot more 
involved in really being able to stroll down its memory lane 
(without getting lost or tired or mugged). 

Under- the- Rug 

Psssl! Hey Mac (Maxine) wanna know a really sneaky place to 
stash stuff in the 1 28? Okay, just step around the corner into this 
here alley. 

Enter the following code through the monitor - put it at $ 1 40. 



0140 
0141 
0143 
0146 
0148 
0151 
0153 
0156 
0158 

0161 
0162 
0164 
0166 
0169 
0172 
0175 



sei ;no interruptions please 

Ida #7e 

sta ffOO ;ram 1 with i/o visible 

Ida #11 

sta d508 ;bit at $d508 is the key to this trick 

Ida #20 

sta d507 ;swappages$00and$20 

Idx #2 ;$00and$01 don'Iswap 

sta 2000,x;store blanks at "original' zero page 

loop 
inx 

bne0158 

Ida #0 ;restore the registers 

sta d508 

sta d507 

sta ffOO 

brk ;return to monitor 



G 140, then try to find the 254 $20 s. Betcha can't. Okay, now 
use the same setup but LDk 2000,X then STA 8000,X in the 
looping part. Now after G 140 you will see that 8002-80ff (in 
bank 1) is all spaces. So those spaces must have been some- 
where, otherwise how could you get at them again? 

Way back when I was still an un-enlightened goof I thought I 
had a back door to 8563 RAM. Now that I am an enlightened 
goof I believe that these bytes are sithng at 02-ff in RAM 1 (not 
shared RAM 0), 

A Zero Page of Your Very Own 

One of the neatest features of the 1 28 is its relocatable, or more 
precisely, swappable zero page and stack areas. In the above 
example page $00 and page $20 are swapped. A write to $!f 
would show up at $20ff in shared RAM (always RAM 0) but a 
write to $20ff would appear at $ff in unshared RAM I . 



Normal practice (mine anyway) involves writing only to the low 
bytes ($D507 and $D509) of the page pointer registers. Then, 
new and old system pages will always be in shared RAM 
which even overides the $ff00 memory configuration setting 
and gives rise to a slick way of accessing any page of RAM from 
RAMI. 

Here an Interrupt, There an Interrupt, 
Everywhere an Interrupt 

Here is a handy little routine to make assembly language 
programming in out-of-the-way banks a bit more homey on 
the 1 28. Brian Hilce, author of Pro-Line's Cocompiler, put me on 
to it so that I would stop griping to him about what a bother it 
was trying to write code to run in Bank \. The following IRQ/ 
BRK wedge allows interrupts to be serviced no matter which 
bank of memory one's code happens to be execuHng in. 

First point the BRK vector at the normal IRQ service routine. 
Then just point the IRQ vector at your own routine which must 
be in common f^M, Normally this will be below $400, All you 
do when an interrupt hits your routine is put a $00 at $ffOO (Bank 
1 5) and execute a BRK instruction followed by a NOP. Execution 
resumes following the NOR The original $FFO0 and register 
values will be on the stack-restore them. An RTI gets you back 
completely intact to wherever you came from. Sixty times a 
second; works like a charm. Looks like this: 



sei 
Ida 
sta 



788 
790 



;first point brk vec 
;at irq service code 



Ida 789 
sta 791 

Ida #<lrqsrv ;then point irq vec 

sta 788 ;at your switch 

Ida #>irqsrv 

sta 789 

cli 

rts 



irqsrv =* 

ida #0 

sta $ffOO 

brk 

nop 

pla 

sta $ffOO 

pla 

tay 



; interrupt wedge 

;set bank ISconfig 
;service irq thru brk 

;oldconfig on stack 
; restore it 
;regtsterstoo 
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pla 
tax 

pla 
rti 



;relurnfrom interrupt 



The same genera! idea could be used in the 64 to take advantage 
of interrupt servicing from the hidden RAM below Kerna! ROM. 

!f your program was using its own zero page you might want to 
push the interrupted $D507 setting on the slack and stick a $00 
there prior to the BRK so that the IRQ routine would not mess 
with your pointers, then, right after the BRK;NOP, pull $D507 off 
the stack and reset it. Fancy that - over 250 bytes of wonderful, 
beautiful, a'bsolutely free and uninterrupted zero page for your 
program. 

Keeping in Touch Wth the Kernal 

Even though the 128 has a bunch of new Kernal routines for 
calling out-of-bank code. I tend to shy away from them. These 
tend to jump all over the place, slowing things down and 
generally confusing the daylights out of me. Besides, it's usually 
the Kernal Tm calling in the first place. I like to write my own 
JSRFAR routine to handle Kernal calls from other banks. Usually 
there is room low on the stack ($140-$1C0) or in the system 
input buffer (S200-$29f) for this sort of thing. The following lets 
you call the Kernal from Bank 1 . One byte of memory is needed 
to save the -Y register. ' 

;.YissavedinHOLDY 

; and ioaded with the low byte of the Kernal routine 

; prior to calling FARKERNAL 

FARKERNAL -* 

sty kernrtn ;selfmodisr 



kernrtn 



Idy #0 
sty $ftOO 
sty $d507 
Idy holdy 
jsr Sffff 
= *-2 
php 
pha 



;bank 15 

;your own Z page Mr. Kernal sir 

;in case it's needed 

;call routine 



;save status 

;and ,A 

Ida #myzpg;;my zero page back 
sta $d507 

sta $ff02; ;latch to bank 1 
pla ;remember .A 

pip ;and status 

rts 

Here Is how FARKERNAL would be used to PRINT from Bank I 



print 



= * 



sty hofdy :save ,y 
Idy #$d2 ;<$tfd2 
jmpfarkernal 



If you were converting a program from the 64. this print routine 
would replace the PRINT = $FFD2 assignment. The rest of your 
program should never know the difference- 



Notice again that your very own. personal, private, exclusive 
zero page will still remain that way. Neither interrupts nor 
Kernal calls need be allowed to chew on it- 
Share and Share Alike 

The system keeps a $04 at $d506 that provides an essential 1 K 
of common RAM at the bottom of memory. So normally, no 
matter what bank you do business with, common RAM from 
$00 to $3ff will be visible. Almost every big ML program is going 
to have to move a little code into this area in order to access all of 
memory. Unhappily, the operating system hogs a good deal of it. 
But despair not, for this area can be expanded and even moved 
about at will. Overseeing this is the RAM configuration register 
at $D506. Only the low nybble is used in the 128, The two low 
order bits determine the amount of RAM lo share. Paired values 
of 0.1,2 or 3 result in IK, 4K, 8K or 16K respectively of shared 
RAM. Bits 2 and 3 determine whether low, high, or both low and 
high RAM is held common. 

Common RAM is always RAM 0. The $D506 setting takes 
priority over the $FF0O configuration but not over the page 
pointers. If you just can't seem to fit all your relay code below 
$^^00, or if you want to be able to access the 40 column screen 
directly from Bank 1, then keep $D506 in mind. 

There is another situation in which expanding common RAM is 
virtually essential, ROM for the Z80 CPU resides from $00-$fff. 
At first glance it would seem impossible to switch Banks in Z80 
mode without whipping memory right out from under you. No 
common RAM to work from. . . unless you were to first store, 
say,a%!011 at$D506, lockingthe lop 16K($C0O0-$FFFF) into 
RAMO. 

That Secret Place Again 



Writing a $00 to $D506 disables all common RAM (except $ffOO) 
including the first K of memory. It is virtually impossible to 
change banks in this mode- The 1 28 monitor is unable to access 
$00-$3ff RAM 1 for this very reason. But now this perfectly free 
well-hidden K of RAM is yours for the taking by simply storing a 
$00 at $D506 anywhere from within RAM i. 

Beyond the MMU 

ML memory management of the 1 28 goes well beyond massag- 
ing $FFOO directly or via its IFFO I -$FF04 write latches to values 
at $D501-$d504. However, using these in conjunction with the 
page pointers ($D507-$D508 and $D509-$D50A) and the RAM 
CONFIGURATION register ($D506) will pave the way to tapping 
the real potential of the versatile 128. 

Why Me? 

I have just finished (for the 100th time} new 64/128 assemblers 
(my Buddy-Systems) for Pro-Line software so I would like to 
think I know a great deal about the ins and outs ot programming 
the 128. I would also like a Jaguar XKE, a satellite dish and a 
cottage by the lake- 
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Event Maker for the Amiga 

by Chris Zamara, Technical Editor 

- Simulate mouse and keyboard inputs witti CLI commands 



One of the first things you'll notice about any computer is how you 
have to ask it to do the things you want done. In computerese. that 
translates to the "User Interface". User interfaces come in two 
flavours: command -driven, and interactive. The Amiga, being the 
do-everything machine that il is, lets you have it both ways. 

From the CLI (Command-t^ine Interface), the command-happy 
folks can merrily punch in obscure incantations to set the machine 
into action on any mission they wish to assign it. Programs designed 
to be used from the CLJ are controlled by the arguments typed in 
after the program name, making a single command. The arguments 
can be names of files or other data for the program to work on, or 
certain options and settings that the program tooks at to find out 
what you expect from it. The built-in CLI commands like Copy, 
Format, Echo, Search, etc, can all be used in this manner, and many 
other programs get their arguments from the command line in this 
way as well. All the Unix-style utilities that programmers are so 
fond of are operated via command-line arguments. 

The Workbench, of course, is an example of interactive program 
operation. Although Workbench uses a Window/ Icon/ Mouse/ 
Pointer kind of user-interface, il isn't just for WIMPs, and even Real 
Programmers can use it to good effect (although they usually do so 
only when no one's looking). Interactive interfaces like Workbench 
are typically easier to use than command -driven ones, and can 
often be used without relying on reference manuals or your mem- 
ory. An example of an operation that can be performed via a 
command OR interactively (using Workbench) is copying a file. You 
can either type "copy filel to fiie2" from CLI, or drag an icon (if there 
is one for that file) from one disk or drawer to another on Ifie 
Workbench screen. 

Naturally, each approach lends itself betler lo some applications 
than others, A graphics editor, for example, should be interactive, 
while a file converter of some kind would probably be more useful 
as a command (programs that operate either way are a boon, but 
that's not always practical). The command-driven program has a 
major advantage over the interactive one, though: it can be operated 
from an "Execute", or "script", file, A script file can automate some 
process that the user would otherwise have to carry out by typing in 
commands one at a lime, possibly wailing for operations to com- 
plete In between. The script file just contains a lisl of commands as 
they would be typed from CLI, and is executed with the CLI Execute 
command. An interactive program will be of little use in such a 
process, since it wilt come up and wait for the user to enter 
something, which makes the operation no longer automatic. 

A real example? You just used TageSetter" by Gold Disk, inc, lo 
create a lovely report, complete with the obligatory pie-charts and 
bar graphs that everyone uses to show off their computer Now, you 
want to prim several copies of this report, perhaps advancing the 



paper between copies. You want this to happen without your 
attention, since it may take a long time. No problem - use the 
'PagePrinf program provided on the PageSetler disk to print your 
PageSetter file, PagePrint is excellent in that it can be run either 
from Workbench, or from the CLI by giving it the name of the 
PageSetter file you want to print. 

Fine - make a script file to perform the PagePrint commands, with 
Echo commands thrown in to advance the page after each copy is 
printed. Execute the script file and away you go. Except, oh look - 
PagePrint puis up a window and asks you to press RETURN lo print 
the document, or ESCAPE to abort. So much for your automalk: 
script file - you'll have to stick around while it runs and press 
RETURN every time PagePrint is run to produce Ihe next copy. This 
is not to say anything bad about PagePrint - it's just designed as an 
interactive program, rather than being completely command 
driven. You will probably find many programs that you would like 
to be able to operate from a script file (even from a Startup- 
Sequence), but they require keyboard or mouse input from the user 
before they will do their job and finish up so that the script file can 
continue. What you need in such instances is a way to make the 
computer in effect 'press its own buftons". 

Which, not surprisingly, is why we are here today. We present to you 
"Eventmaker", a command-driven prc^ram that lets you simulate 
interactive input, h works like this: you tell Eventmaker what input 
events you wish to take place, such as mouse movements, key 
presses and releases, etc, and those events happen within the 
Amiga as if the user actually performed them. This can get spooky, 
since you can have a program do things by itself as if someone was 
operating it, somewhat like a player piano. 

How To Use Eventmaker 

I 

When you run Eventmaker from the CLI, you give it a list of events 
you want it to simulate. The simplest of these is a keypress. For 
example, if a program wants you lo press "c" to continue, you can get 
Eventmaker to do it for you: first run the program (using "run' from 
CLI), then gel Eventmaker to enter a 'c' like this: 

Eventmaker c 

You could enter several keys like this: 

Eventmaker abed 

Function keys are signified by "F" followed by the function key 
number (F1,F2, etc.). 

Only unshifted characters may be specified in this way. If SHIFT, 
CTRL, ALT, or ottier keys are to be held while these keys are 
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pressed, they must be entered as separate events beforeliand. 
Special keys are entered as follows (itiey must be in uppercase); 

shift/alt etc: 

LSHiFT RSHIFT LALT HALT LAMIGA RAMIGA CTRL CAPS 



mouse buttons : 
LMB RMB 



function keys 
F1 -F10 



other keys: 

HELP RETURN UP DOWN LEFT RIGHT 

ESC TAB SPACE ENTER DEL BACKSPC 

Key releases are stgnified by using the "" character ("caret", 
shifl-6) instead of the minus sign. For example: 

Eventmaker SHIFT a ^SHJFT ^a 
(press shift, press 'a', release SHIFT, release 'a') 

Key releases do not normally have to be specified, unless this is 
important to the program receiving the input, 

I 

The left and right mouse buttons are handled just like other keys 
(with the events LMB and RMB), but mouse movements are handled 
differently. Mouse movements are preceded by 'm:' (m colon), and 
followed by a relative mouse movement in pixels. The mouse 
movement is two positive or negative numbers separated by a 
comma thai specify how many pixels to move the mouse pointer in 
the X and Y directions, in that order. The pixels are always in terms 
of a hi-res interlaced screen, that is, 640 across by 400 down. The 
other mouse event command that is often usetnl before a mouse 

movement is ■m:h", which moves the mouse pointer "home", to the 
top left hand corner of the screen. By giving an ■m:h' event followed 
by a mouse movement of the form 'm:<x>,<y>'. you can put the 
mouse pointer anywhere yon want on the screen with Eventmaker 
Some examples: 

Eventmakerm:1 00,20 ;move pointer 100 right. 20 down 

Eventmaker m:-50,0 ;move pointer 50 left 

Eventmaker m:h m:320,200 ;put pointer at centre of screen 

Sometimes a delay is needed between events; for example, when 
running a program by double-clicking and then trying to operate 
the program itself. You need to wait a few seconds while the 
program comes up before you can give it input. A delay can be 
specified between input events with the syntax ■w:<n>', where n is 
the number of seconds to delay (within a second of accuracy). For 
example, here's the command you'd use to double-ciick on the icon 
beneath the mouse pointer, wait three seconds, then send a few 
characters to the program just run: 

Eventmaker LMB ■^LMB LMB ^LMB w:3 h i , SPACE program. 

Two other events are "diskinserted" and "diskremoved'. which 
signify the obvious. These events are specified with 'dri' and 'dir' 
respectively. 

To simulate keys on the numeric keypad, use the prefix "n:", for 
example, n:0, n:-, etc. This does nol apply to the ENTER key, which 
is signified by the word ENTER alone. 



Don't worry about memorizing all of the above instructions; a 
summary is printed out when you run Eventmaker without giving it 
any arguments, i.e. just type "Eventmaker' from the CLl. 

How it Works 

There's nothing tricky about 'Eventmaker"; it just uses a provision 
the system has for adding events to the input stream. All programs 
receive events from the input stream unless they are working at a 
very low level, like reading the keyboard matrix directly from the 
"key board. device", which is unlikely. 

Input events are added using the "inpul. device', one of the many 
software entities in the Amiga known as 'devices'. A command 
called 'IND_WRITEVENT' is given to the input device, along with 
an "InpulEvenf structure that specifies what events are to lake 
place. These events can be the press or release of any key on the 
keyboard along with SHIFT, CTRL, either ALT. or either "Amiga" 
command key; any mouse movement (specified in relative X and Y 
units); or the press or release of either mouse button. 

The program opens the "inpuLdevice", then goes through the list of 
arguments supplied by the user, one at a time. Each argument is 
used to determine how to fill in an "InputEvenf structure, which is 
linked in to the 1/0 request structure sent to the input device. The 
WRITEVENT command is then put into the I/O request structure 
and given to the Input Device via the DolOQ function. The input 
device then enters this event into the input stream for us, and the 
program currently receiving input gets the event. Finally, the input 
device is closed and the program exits. It's all done in about 260 
linesofCcode,a[id the hardest part is parsing the user's arguments 

and turning them into InputEvents in the format that the input 
device wants them. 

Things to do with Eventmaker 

Being able to automate your script files with interactive programs 
will probably be a great help to you, but you can go further than 
that. Why not make a script file to; 

• Create a picture with a graphics program 

• Open the Workbench "Demos" drawer and run all the prc^rams 

• Run your word processor and set the options as you like them 

• Start a terminal program and get it to automatically log you onto 
an online service 

So, even if you didn't have a crying need for this program before, 
vou can still have fun with iL 

■ 



RS. 



You can use Eventmaker to find the "Easter eggs" in Workbench as 
described in the bits column without playing a 'solitaire game of 
Twister", A word of warning, though: this will give you the most 
deeply buried message, the one you should only see if you're not 
offended by rude words. Just make your CLi window shorter and 
move it to the bottom of the Workbench screen to display the screen 
title bar, then use Eventmaker like this: 

Eventmaker m:h m:600,22 LMB "LMB m;0.-10 
LSHIFT LALT RSHIFT HALT F1 d:r LMB d:i 
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/' Eventmaker 
'ChfisZamara, 1967 



Puts the specified characier inio the input stream as if it were 
typed from the keyboard Useful if you are running a program from a 
script that wants you to press return or something to slari. 

See the "docs" array below foi complele specs. 



■/ 



#include<exec/devjces h> 
#include <devices/jnpuievent,h> 
#jnciude <devices/inpul.h> 

char 'docs|] = { 

"Eventmaker accepts any number of arguments, V 

"each specifying an input event The syntax for an event is;\n", 

■<key> - key down", 

■"<key> - key up", 

'n:<key> - numeric keypad key", 

*m:<)i>,<y> - relative mouse movement", 

"m:ti - mouse liome (to 0,0)", 

■d;i -disk inserted", 

'd:r -disk removed". 

'w:<n> - wait n seco nds\n " . 

^ys are entered as single unshifted characters, except. \n', 
"shift/alt etc. : LSHIFT RSHIFT LALT RALT LAMIGA RAMIGA CTRL CAPS', 

"mouse buttons ' LMB RfvlB" 

:F1-F10", 

: HELP RETURN UP DOWN LEFT RIGHT', 

ESC TAB SPACE ENTER DEL BACKSPC, 



lunciion keys 
'other keys 



I; 

struct lOStdReq -idReq = NULL, *CreateStdlO{); /- for I/O requests -/ 
struct Port -^dfleq Port = NULL, *CreatePort(]: 
longidError = 1, OpenDevicet); 

main(argc, argv) 
int argc; 

char '"argv; 



inti; 



if (argc < 2) 

{ /* print instructions -/ 

fcx(i = 0;i<sizeof(docs)/sizeof(chart);i++) 
puts(docs(ij); 

e>yt(0): 

) 

rf(OpenlnputDevice() = -0) 
fcr(i = 1;i<argc;i++) 
MakeEvent(argv[i]); 

else 

pu!s( "Something went wrong. Sorry, can't help you.']; 
CtoselnputDev<cei); 



} 



OpenlnpuEDevice () 

/- create port and I/O request block, open input device -/ 

{ 

rf((idReqPort - CreatePort("dReqPorI", OL)) = = NULL 
II {idReq = CreateStdiOfidReqPort)) = = NULL 
II (idError = Ope nDeviceCinpuL device", OL, dReq, OL)) I = NULL 

returnl; 
return 0; 

} 

CJosefnpulDevfce[) 

! 

jf(idError = = Q) CloseDevice{idReq]; 

if(idReqPort) Delete Per t(idReq Port); 

if (IdReq) DeleteStalO(idReq); 

I 



MakeEvent (string) 

/* Fill in InpulEvent structure and give WRITEVENT command to input device ■/ 
cfiar -string; 

{ 

struct InputEvenl MyfnputEvenl; 



id Req->io_Command 
idReq->lo_Flags 

idReq->io_Length 
IdReq ->io,Data 



IND_WRITEEVENT; 

0; 

sizeof (struct InputEvent); 

(APTRj&MylnputEvent; 



M y f npu lE ver>l. le_NextE vent 

M y I npu tE vent. le^TimeSiamp. tv_secs 

WylnputEvent.ie_TimeStamptv,micro 
f^ylnputEventie_X = 0; 
MylnputEvent.ie_y = 0; 

if (SetupEven!(string, SMylnputEver^t)) 
DolO(idReq); 



NULL; 

0; 

0; 



) 



parseXY (string, :<.y) 

/* get X and y value from user's input and put into supplied args •/ 
char 'stnng; 
WORD ^x, *y, 

) 

int yarg 



} 



■X = atoi(string); 

f ((yarg = findchar(string, '/)) \ = 
•y = atoi(string + yarg + 1); 



-1) 



SetupEvent (eventstring, event) 

/• fifl in supplied InputEvent structure based on supplied event string ■/ 
char 'eventstring; 
struct InputEvent 'event; 

{ 

UWORD class, code, qual, mquai, nqual, 
UWORD key_upjndlcator = 0; 
static UWORD qualifier = 0; 

code = qual = mpual = nqual = 0; 
class = IECLASS.RAWKEY; 



if (events^ing[0] = = '''] /• key up indicator - skip over •/ 

key_up_indicator = IECODE_UP_PREFIX; 

eventstring++; 

if(even!stnng|1]i= ■:'] /- normal key event-/ 
code = findkeycoae(eventstring, &qua[, &class); 

else I* disk, keypad or wait '/ 

switch (eventsiring[Oj) 

case 'n': I* numeric keypad */ 
nqual = IEQUALlFl£R_NUrJERICPAD; 
code = fJndkeycode(eventstring, fiquaJ, Sclass); 
break; 

case'm'; /< mouse movement*/ 
mqual ^ lEQUALlFlER.RELATIVEMOUSE; 
code = IECODE_NOBUTTON; 
class = IECLASS,RAWf^OUSE; 
rf (eventstrir>g[2] = = 'h') /. mouse Inome flop left) 'I 

event->iej( = event->ie_Y = -1024; 
else 

parseXYfeventsEring + 2, &evenE->ieJ<, &event->ie,Y); 
break; 

case'd'. /'disk event -/ 

if(eventstnng[2] =='i') 

class = lECLASS^DlSKINSERTED; 
else if (eventstring [2] = = V) 

class = IECLASS_DISKREMOVEDi 
break; 
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case'w': /■ wailnseconm*/ 
[>elay((UL0NG)(a1oi(evenrs1ring + 2)* 50]]; 
return 0; 

I 
If (class = = IECLASS_RAWKEY && code > 0>!FF) 

{ 

pfinH('Bad event specification: %s\n", eventstring); 
return 0; 



If (class = = IECLASS_RAWKEY) 

if (key_up^Fr>dicator) 
qualifier 5 = *qual; 
else 
qualifier I = qual; 
event->ie_Class - class; 
event ->ie_Cocle = code | key_upjndlcator; 
event">ie_Ouafifter = qualifief \ mqual ! nqual; 

relumi; 



; } 



(indkeycode (key, qualifier, class) 

/" given a single key even], find its code and qualifier ■/ 

char 'key; 

UWORD -quaitlier, -class; 



UWORDcode; 
>r\\ tablejndex; 

char 'kstring = 

"1234567890- = 
static char "keytable1[] = | 

■HELP', 'RETURN", 'UP', "DOWN', "LEFT', "RIGHT", 

■ESC", 'TAB", "SPACE', 'ENTER', 'DEL'. -BACKSPC. 

NULL I; 
sialic UWORD Godejablellj = | 

OxSf, 0x44, 0j.4c, 0x4d.0;<4t, 0x4e, 

0x45,0x42,0x40,0x43,0x46,0x41 }; 

Static char"keytabie2[] ~ { 

"LSHIFT", 'RSHIFT', "LALT'. 'RALT", 

'UMIGA', 'RAMIGA-, 'CTRL'. 'CAPS', 

NULL). 
Static UWORD code_table2[] =■ { 

0x60 0x61 , 0x64, 0x65, 0x66, 0x67, 0x63, 0x62 }, 
static UWORD qualtojable[l = { 

IEQUALIFIER_LSH1FT, IEQUALIFIER_RSHIFT, 

IEQUALIFIER_LALT, fEQUALIFIER.RALT, 

IEQUALIFIER_LCOMMANO, lEQUALIFIER.RCOMMANO. 

IEQUALJFJER_CONTROL, lEOUALlFtER_CAPSLOCK }; 
static UWORD key pad_codesn = { 

0x4a, 0x3c, 0x00, OxOf, Ox1d, Ox1e, Oxif, 

0x2d,0x2e,0x2f, 0x3d,0x3e,0x3f ]; 

•quahfier = 0; ' 

-class = IECLASS_RAWKEY, 



if(strlen(key] = = T 
code = findchar(kslring, -key); /■ single-char key </ 

^se if ((tablejndex - findstring(keytable1.key)l>= 0) 
code = code_table1 [lable.indexj. /• other key ■/ 

else if ((tablejndex = f<ndstrin9(keytable2. key))>= 0) 
I /■ qualifier-type key •/ 

code = code_1able2[table_index|; 

•qualifier = qualifierjable[tablejndex]; 

I 

else If ("key = = 'F && slrlen(key] <= 3) 

code = Ox4f + atoi(key + 1), h function key 
elseif(strcmp('LMB',key) = = 0) 
i /• left mouse button W 

code = IECODE.LBUnON; 

■qualifier = lEOUAUFJEFLLEFTBUnON; 

■class = IECLASS_RAWMOUSE; 

} 

else it {slrcmp('RMB", key] = = 0) 

{ /• nght mouse button </ 



t/ 



code = IECODE_RBUTTON, 
-qu^difier ^ lEQUALlFIER.RBUTTON, 
'Class = IECLASS_RAWM0USE, 

} 

elseif(key(0| - = 'n'S&kev[1] = = '''/- numenc keypad key */ 
&& key[2] >= ■-■ £.& key|2) < = '9') 

code = keypad_codes|key(2| - '-']; 
else 

code = -1 ; h invalid event specifier */ 

return code. 



} 



findchar(stong. chr) 

/- find a character in a stnng and return its position -/ 

char 'String; 

char chr; 

i 

int pos; 

for(pos = 0; 'Slnng'= chrS.& "sSnng, pos4- +) 
str^ng + + ; 



J 



return('S&ing?pos:-1); 



findstring [array, siring) 

/* find a string in an array and return its position •/ 

char "array, -siring; 



../■. ! 



int pos = 0; 

while (array[pos] &S strcmp(array[pos], siring)) 
pos++; 

remrn(array[pos|'= NULL ' pos. -1]; 
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A New ECHO: 
An AmigaDOS Command Replacement 

Neal Bridges, Welland, Ontario 



. .foe discovered the joys of programming in 68000 assembly language. 



1 moved from a C64 environment lo an Amiga only a couple of 
months ago, and it's only in the last couple of weeks that I've 
discovered the joys of programming in 68000 assembly lan- 
guage. As my first project, rather than creating something totally 
new, 1 decided to improve on something already in exisliince. 
Whal follows is a replacement for the AmigaDos command 
"ECHO". This new BCHO command is shorter, faster, and better, 
while still retaining all the features of the old ECHO command. It 
works under both Release 1 . 1 and Release 1 ,2 of the Kicksiart/ 
Workbench disks. 

Three file listings follow this article. 

Listing 1 ('Echo. asm") is the Commodore Macro Assembler 
source listing of the new command. 

Listing 2 ("Echo. gen") is an AmigaBasic program generator that 
will generate an executable command called 'ECHO' on your 
AmigaBasic default directory. This is for those of you lacking the 
Assembler Each DATA line ends with a checksum, so the READ 
loop at the top can tell you what line an error is found in. 

Listing 3 ('DateChange') is an example of a command file using 
the new ECHO. 



would display: 



Broken 



2) Quotes around the <string> are normally unnecessary and 
may be left out. Thus, 

ECHO "Hello World?" 

will display the same thing as 

ECHO Hello World? 

The only useful purpose they can serve is to indicate leading 
blanks, as in 

ECHO ■ Ttiis is3 spaces over." 

or to visually delimit trailing blanks (for easier editing), as in 

ECHO -n "The current date is; ' 



Also, 



ECHO " 



prints a blank line. 



How To Use the New ECHO 



Apart from this, quotes are ignored by the new ECHO com- 
mand. 



To make effective use of the new ECHO, 1 recommend that you 
directly replace the old ECHO command (in the c: directory of 
your CLI/Workbench disk) with the new one. . . all your exist- 
ing command files will function perfectly, albeit slightly fa.ster 

Usage; ECHO [-n]<string> 

The new ECHO has three new features. In the examples that 
follow, 'ECHO' represents the new ECHO command file. 

1} If the characters -n' precede the <string> argument, a 
newline character will not be printed after the <stnng>. For 
example, within a command sequence, 

ECHO -n Bro 
ECHO Ken 



3) Within the <string>, any character preceded by a '^' is 
converted into its equivalent CONTROL character This feature 
makes it possible to send ANSi codes to the console and printer 
For example, 

ECHO-n'^^ 



will generate and display an ASCII 12 (Formfeed), effectively 
clearing the screen, and 

ECHO >prt: '^[[1 mHellc There'^[[Om 

will print "Hello There" in bold type on the printer (*[ results in 
an ESCape characler}. 

The new ECHO handles the '*' character in exactly the same 
manner as the old ECHO. 
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I 



About The Program 

The fiie "ECHO-asm", when assembled and linked, comes to 292 
bytes. This is 268 bytes smaller than the exisling command. I 
happen to like short code. My first machine (way back in '82} 
was a 1 K ZXSl , so 1 learned to squeeze my programs right from 
the start. It's healthy mental exercise. 

I have done my best to document the assembler listing fully. In 
terms of function, it first opens the DOS library. Then, if the 
argument was ?', it prints the template (': ') and gets an 
argument string from the current input device. It then checks 
the beginning of the argument string for a '-n'. If found, a flag is 
set indicating to the output section that no End-of-Line charac- 
ter is to be transmitted after the output string. Then the main 
loop copies the rest of the argument string to the output buffer, 
handling quotes and the special characters {'*' and ''''). li then 
calls the Write routine in the DOS library to send the result out to 
the current output device, with or without a linefeed, as indi- 
cated by the End-of-Line flag. Afterwards, the DOS library is 
closed, and control is returned to the CLJ. 

r 

The routine is position independent. 1 haven't tested it, but this 
should mean that it loads and executes slightly faster than a 
similar relocatable routine would because (a) registers are faster 
than memory, and (b) the relocating loader in ROM doesn't have 
to relocate anything when it reads the command from the disk. I 
ran a rough test which showed that the new ECHO command is 
approximately 60% faster when running it from disk than the 
old ECHO. Being position independent makes it smaller, as well. 
Machine instructions that operate solely on internal registers 
take up less bytes than those that reference immediate values 
and memory addresses. 

One interesting note: Rather than create a buffer to hold the 
output string, I re-used the argument line buffer. Since the 
argument line isn't referenced elsewhere after this routine is 
through with it. there's no problem. This only works because the 
length of the output string that this routine produces is always 
less than or equal to the length of the original argument string. If 
it were possible for the output string to be longer than the 
argument string, disaster would result because the output string 
would write over input characters that hadn't been scanned yet. 

Another note; Although this new ECHO command does all the 
things the old one does, the inverse is not true. That is, if you 
make use of the improved features in your command files, you 
must have the new ECHO command in your c: directory when 
you EXECUTE those files. If you come up with a useful com- 
mand file using the new ECHO, and you want to distribute it, 
don't forget to distribute the new ECHO command with it, or 
you'll get complaints. 

Usting 1 : Source Code 



Neaf Bridges, 
4 Crescent Drive, 
WellarnJ, Onlano, 
Canada, L3B2W5. 
Phone. (416)-734-7789. 

-This IS a CLI command. It's meanno replace the existing 

Echo command Although it has more features, it is upwardly compatitile 

with the existing command. It's also quite a bit shorter & taster. 
To use It effectfvely, I recommend directly substituting 
(t for theexisting 'Echo' command in the c: direciory of your 
CLIAVorkbench disk, 

- Usage Echo |-n] <string> 

Notes. If you include the '-n', no linefeed will be printed at the 
end of the line. The 'n' must be lowercase. 

- Special features within <string>. A ""' Idlowed by a character 

will be converted into aCTRL character For example, 'I becomes 
ASCII 12, (Formfeed), ^g becomes ASCII 7 (Bell), *| becomes 
ASCI1 10 (Unefeed) '[ becomes ASCII 27 (Esc), etc. 

Example Echo -n'f 

clears the screen. 

Example: Echo ^|[2mHeflo Therel 

switches to text colour nurnber two (rtormally black) & displays 

'H^lo There!' in that colour. 

- Ouotes(")aroundtheargument<s^ing> are unnecessary 
unless you wish to have leading spaces in your string, 

for example: Echo ' Hello World!' 

As described in the AmigaDos Manual. 

It tor some reason you wish to print a quote character, you may do so 

by preceedingitwrtha'-'. 

Example Echo- "Hello World.'' 

displays: "Hello World" 

- Ilyouwishtoprinta'"'.usetwoofthem. 
Example Echo In pul* -Output 2 3 4 
displays: lnput"Output 23 4 

- 'Echo' by itself does nothing. 
' 'Echo "' prints a blank line. 

- Permission to copy but not to selL 



; — The following register equates 

, save memory & increase the speed of the program. 



, — Register Equate' 
bfcj^tr equr a2 

argpslr equra3 



argplr 



char 



BilFlags 



equr a5 
equr do 



equrdi 



Specflag equr d2 



count 
arglen 
Dosbase 
output 



equr d3 

equr d4 
equr d5 
equr d7 



- Used for: 

, Output buffer ptr 

;Storage place for ptr 

; to start of argument hne. 

,P1rtostartof 

; argument line, 

;Char being read in 

[from argument hne. 

,BitO IS used to signal type of hne termination. 

;Bitl IS used for the quote 

Itoggle flag, a thing incorporated io kludge 

;the strange parsir>g of the existing Echo command. 

.Rag for use with special 

;symbols'-'&'^'. 

;Len of output line. 

;Len of argument line. 

.Dos library pointer. 

iCLlouthandle. - " 



;- 'Echo.asm" 

, A new ECHO command by Meal BrkJges, 02/87. 

p 

, My address' 



,— Symbolic equates: 
AbsExecBase equ $4 



LF 



equ 10 



Loc of ptr to the 
Exec library. 
Line Feed value. 



CTRLmask equ MOOIHII ;Mask to make CTRL chars. 
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r 

h 






;— Check for '-n' at start of argument me. 






xljb 


MACRO ; Macro to save 

xret _LV0\1 

ENDM 


myfeebelingers. 




cmpi.w #'-n',(aFgptr)+ ; 
bne.s fixptr ; 
moveq WI.BitFlags ; 


Are f^rst 2 chars '-n'? 

fVES, 

setBitOofBitFagsto1< 




r 
P 










which means 




C^l 


MACRO [Another macro to save typing. 






'Don't send an EOL character 






jsr _LV0\i(a6) 








after printing the me". 






ENDM 




) 








h 
P 






;— Find first 


non-bank char: 








xlib Close ;Theseare 


Library routines referenced 


findspc 


cmpi.b #' ',(argptr)+ ; 


Loopunti nxt non-bank char found. 






xib OpenLibraryiexternaly by this program. 




bJe.s findspc 








xib CloseLibrary 






subq.l #1.argptr ; 


When found, lix ptr & 






xib Output 






bra s setup ; 


go toman scan cop. 






xib Wnte 




J 
1 










xib Input 




,~ Reset plr to start of line it ihere wasn't a '■ 


-n': 






xib Read 




fixptr 


move.l argpstr,argptr ; 


Reset argument me ptr 




r 


' 








. to star! of ine. 




;— Initial setup: 




setup 


dr.l count ; 


. C ear output-chars count. 




_main 


move aO.argplr ; 
move. aO,afgpstr ; 
move. dO.argen ; 


Remembef ptr to argument Wm^ 
Make copy ot it tor reference. 
Remember len ol argument tine. 


p 


c r b SpecFlag ; 


, Clear specia chars f ag. 






1^ dosname(pc),al ; 


-Specjfy name 'dos. ibrary'. 


;~ Make new output fine from argument fine 








dr do ; 


Specify any version (0 means 
any veraon is OK). 


scan 


move b (argpTr) + .char 

1 


; Get first argument char (after 
; '-n',iftherewasa'-n'). 






move AbsExecBase.aS ; 


Then using Exec library, 




cmpi.b #LF,char ; 


; sitEnd-Of-Linechar^ 






cal OpenLibfary ; 


Open Dos ibrary. 




beq exit 


; fVES. then there's no more 






movei dO.dosbase ; 


Remember dosbase ptr. 






; argument line, & it's 






beq close ; 


Check for error (dO = means 
"Oh dear, it didn'i open"). 


J 


J 


; time lo ^ow output. 




1 






;— Check specie chars flag: 






,— GeJCLIc^thandle 






tst.b SpecFag 


, Check specia charsfag. 




getoul 


move.l dosbase.a6 ; 

c^l Ou^ut ; 


Using Dos ibrary, 
getCL ou^iande. 




bne.s dofag 


; If ast char was specia 

; one(either '0r*),gotodofag 






move.! dO, output ; 


S then fememt>er it. 


^ 




; to hand e it. 




;~ Check the existence o!an argument line: 




;— Cheekier quote' 






check en 


cmpi.b #T,arglen ; 


If no argument chars 




cmpi b #'"',cJiar 


; If received Chans quote, 






bte cose ; 


exit program. 




bne.s chkspcl 


; avoidentirey 




p 


■ 






bchg #1,BitFags 


; NewEcho doesn't do quotes wtlhout 




;— Check far argument = '?' + LF: 






twa.s scan 


; '•' in front of them. 




checkqm 


cmpi.w r?'*256 + LF,(argptr; 


} . f the argument IS ■?' only, 


L 
P 










bne.s sirtscan 


. show templates read argument 


[—Check for specie chars f and']' 








1 


, line from console input device. 


chkspcl 


cmpi.b #'»'.char 


;tsit'.'7 






1 


; (The equation resutsinaworc 




brie.s chko^er 










, equalinga'?'charfolowedbyaLF). 




btst SI.Biti^ags 


; If YES, was there a preceding ' "? 




4 

i 








beq s chkother 


; UNO, display It as a '•'. 




;— Display template 


. 




moveq #1.SpecRag 


;!fYES,sefagtol. 




geBine 


ea lemplate(pc],a2 
move.l a2,d2 


; -Specify pir to template string in 
, d2(viaa2), 


chkother 


cmpi.b #'^',char 
bne.s rffag 


; Is It '"■? 






move.l ouTpu(,d1 


; Specifyoulliandeindl: 




moveq #2,SpecRag 


;HYES,setflagto2. 






movei #enc1temp-temptate,i 


d3 .Specify number of chars in d3, 


tfflag 


isi.b SpecFag 


; If SpecF ag \s something other than 






move. dosbase,a6 


; then using Dos library. 






; (meaning special char 






caJ Write 


; showthetempaie. 






; was received), 












bne.s scan 


; go back & get next char. 




;~ Get argument me from input device. 














call npul 


; Slilt using Dos ibrary, get the 


;— Put char 


jn buffer 










; current inhandie. 


putinbuf 


move.b char,(bufptT)+ 


; Put output char in output 






move.l dO,d1 


;-Specifyinhandleindl; 






; buffer. 






movei argptr,d2 


; Specify argument buffer ptr rnd2; 




addq.b #1, count 


; Increment output-chars count by 1. 






move. #255, d3 


; Specif max len in d3; 




bra.s scan 


, Go up & get a new argument 






cal Read 


; Etil using Dos ibrary. Read ine. 






; hnechar. 






move dO.argen 


; Set arg en to the aclua len of the 


L 
P 










bra.s checklen 


; line read & go bxk up lo check 


;--Handespecia chars: 










; line en again. 


dofag 


cmpf.b #1 .SpecFag 


; f flag was set to I by last 




3 










; char (meaning '-'), 




;— Start the 


1 argument ir>e scanning process 


^. 






; tijs char is meant to be showed. 




strtscan 


cirb BitFags 


; Clear end-ot- me flag and quote 
; toggefag. 




beq.s dfexit 


; & needs no altering. 






move.l argptr.bufptr 


; Set bufpir (o start of 

; ou^utbuffer.(Sincetheargumentline 

; isn't needed twice, I'm using ii 


■t 


andib *CTRLmask,dO 


; Hit's 2 [meaning'^'), 

; knock Uiis char down 

; to Its equivaent CTRL char. 








; for the output buffer as 


dfexit 


dr.b SpecFag 


; in either case, clear specia 








; well, & therefore setting 






; chars flag. 








, bulpli" to argplr achieves my purpose.) 




bras putinbuf 


; S go up S store char tn 




r 








. 


; output buffer. 
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I 



I 



! 



J 



I 



p 


130 DATA 44,120, 


0, 4, 78,174, 


254, 104, 10 


;— After looking at a 1 argument chars; 


135 DATA 42, 0, 


103, 0, 0,190, 


44, 69, 192 


exil bdrb #1.BiTFaQs 
Istb BitFlags 


Clear quotes togg e flag. 
. Check ine terminalbn type Hag. 


1 ? 

140 DATA 78,174, 


255, 196, 46, 0, 


12, 4,253 


bne.s notf 


, If It's 1 , don't put a LF at end 


145 DATA 0, 1, 


111, 0, 0,174, 


12, 85,127 




. ot output string. 


150 DATA 63, 10, 


102, 42, 69,250, 


0,188,212 


move.b #LRfbut|^) 


. Jf i{'s 0, put a irieleed at end. 


155 DATA 36. 10, 


34, 7, 38, 60, 


0, 0,185 


addq.b ffi.coum 


& increment count to handle it 




^^ ■ 1 '7 ^-^ ^-^ J T-r »j ^ 


■h-f Y x^ ^ 1 -k^-k^ 


1 

noH move. argps1rd2 


■ ■ ■ ■ ^ ^m m m ^m m ^m ^m m ^ ■ 

-Specify start of output line in d2; 


160 DATA 0, 2, 


44, 69, 78,174,255,208, 62 


move, output, dl 


Specify ouihandle in dl; 


165 DATA 78,174, 


255,202, 34, 0, 


36, 13, 24 


move. count,d3 


Specrfy # of chars to write in d3; 


170 DATA 38, 60, 


0, 0, 0, 255, 


78,174, 93 


cafi Write ' , show The outfKJt. 


175 DATA 255, 214, 


40, 0, 96,200, 


F 7 

66, 1.104 


r- Close opened libraries: 


180 DATA 36, 77, 


12, 93. 45,110, 


102, 12,231 


close move. dosbase.aT ;-Speci y Dos ibrary in a1 , 


185DATA114, 1, 


12, 29, 0, 32, 


111,250, 37 


move. AbsEKecBase,a6 , then using Exec ibrary. 


190 DATA 83,141, 


96, 2, 42, 75, 


66, 131,124 


ca * CloseCibrary ; dose Dos it)rary 
closel rls ; Return control toCL . 


^^ 1 7 

195 DATA 66, 2, 


-m- -r 2 ^" h ' ^" J ^-^ 1 

16, 29, 12, 0, 


0, 10,135 


J 

n 


200 DATA 103, 0, 


0, 64, 74, 2, 


102, 44,133 


;— Dos Library name 


205 DATA 12, 0, 


0, 34,102, 6, 


8, 65.227 


dosname dc.b 'dos. library'. nair^eof Dos library 

;~ Template string: 


21 DATA 0, 1 , 


J F ? 1 

96,230, 12, 0, 


0, 42,125 


^ 1 ■? 

template dc,b ': ' 


21 5 DATA 102, 8, 


8, 1, 0, 1, 


103, 2,225 


endtemp 


220 DATA 11 6, 1, 


12, 0, 0, 94, 


102, 2, 71 


end 


225 DATA 11 6, 2, 


74, 2,102,204, 


20,192,200 


230 DATA 82, 3, 


96,198, 12, 2, 


0, 1,138 




235 DATA 103, 4, 


2, 0, 0, 31, 


66, 2,208 


Listing 2: Generates load file Echo' 


240 DATA 96,236, 


8,129, 0, 1, 


74, 1, 33 


L 4 


245 DATA 102, 6, 


20, 188, 0, 10, 


82, 3,155 


REM 'Echo.gen" 


250 DATA 36, 11, 


34, 7, 38, 3, 


78,174,125 


1 REM AmigaBasic File Generator for "Echo". 


255 DATA 255, 208, 


34, 69, 44, 120, 


0, 4,222 




260 DATA 78,174, 


254, 98, 78,117, 


100,111,242 


CLS 


265 DATA 1 1 5, 46, 


108,105, 98,114, 


97,114, 29 


COLOR 2 print ■ *•* "; 


270 DATA 1 21 , 0, 


58, 32, 0, 0, 


3, 242, 200 


COLOR 3:PR NT 'Echo Program Generator" 


275 DATA 0, 0, 


3, 233, 0, 0, 


0, 0,236 


COLOR 2: print ■ *** ■; 


280 DATA 0, 0, 


3,242,256,256,256,256, -1 


1 COLOR 3:PRINT 'Generated By MakeGen(Nea Bridges, 


285 DATA 245 






02/87).- 








COLOR 1:PR NT: PR NT "Please Wait, creating Echo. . .' 








OPEN -Echo- FOR OUTPUT AS 1 


Listings: A Sampli 


i Command Fiie 




' PRINT 








1 = 95: f = 


; -DateChange' 






1 WHtLEf = 


; A Command Fi e by Neal Bridges, 02/87. 


j Sum^O: =1 + 5 


; A Short Routine to Change the System Date. 


F0Ri = 1T0 8 


; Demonstration of new ECHO commanc 


1. 


READx: Fx<>256THEN 








IF x> = AND x<256 THEN PRINT #1 ,CHRS x); 


FAILAT 25 ; prevent premature exit from sequence 


Sum = (Sum + x) AND 255 


; print b ank line C" ), print ^The current. . , 


', no new ine 


END IF 


ECHO -n -^jThe current date is " 




NEXT :READ x:iF x<0 THEN READ x:f - 1 


DATE ; print date 




IF SumOx THEN 


4 
1 






PRINT -Error in Line"; 


; print blank line, print 'Enter the. , /, change to colour #2 


CLOSE 1: KILL 'Echo-: END 


ECHO -n ^j'Enter the correct date: ■■^[[2m 


END F 


; read date from keyboard 




WEND 


DATE >ni : ? 






Done: CLOSE 1:PR NT -Echo Created.* 


J 






END 


; change to colour 0. 


, go up 3 lines, over! 


20 characters. 




; and erase to End o! Screen 




100 DATA 0, 0, 3, 243, 0, 0, 0, 0, 246 


ECHO -n ''[[0m^[[3A^[ 20C^ J 




105 DATA 0, 0, 0, 2, 0, 0, 0, 0, 2 


DATE ; print new date where old dale was 


1 110 DATA 0, 0. 0, 1, 0, 0, 0, 60, 61 


ECHO" ; print blank me 




i 115 DATA 0, 0, 0, 0, 0, 0, 3,233,236 


■ 






120 DATA 0, 0, 0, 60, 42, 72, 38, 72, 28 








, 125 DATA 40, 0, 67,250, 0,218, 66, 64,193 

^ ■— i-i-^ 


H 


- 
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Programmed Cm-sor 
on the Amiga? 



Jim Butterfield 
Toronto, Ontario 



, , jnside quotation marks, things work a little differently. 



Slip your Amiga into CLI, and type the following command: 

ECHOHOT**DOG 

The computer will obediently echo HOT**DOG for you. You did 
know that ECHO'S argument doesn't need those quotes, didn't you? 
You use quotes most of ttie lime because what you want printed 
contains otherwise forbidden characters, mostly spaces. 

That seems reasonable. Let's be more "conventional" and type; 

ECHO"HOT**DOG" 

Same thing, except for putting quote marks around the argument. 
But wait. . . one of the asterisks has disappeared! What's happening 
here? 

It turns out that when you're inside quotation marks, things work a 
little differently. Especially asterisks: they work a lot differently. 
Without the quotation marks, asterisks are just like any other 
character The quotation marks generate a special type of format. 
It's like the "quote mode" or "programmed cursor" you may have 
seen on earlier Commodore machines. 

fecial Treatment 

When you type almost any CLI argument within quotation marks, 
the asterisk becomes something like an escape-type character. You 
might have seen something like this in C, or in programs such as 
PageSetter. except that a more usual character is the Backslash. It 
says: the next character to follow is not a regular character; instead, 
it's a special signal. Exception; when you give the character twice, 
the second character is accepted as typed. So the two asterisks 
collapse into one. If you like, you may translate the two characters 
as "Here's a special character. , . I just mean an ordinary asterisk". 

The asterisk is a remnant of an Amiga system language called 
BCPU This language was a forerunner of the C language, and you'll 
still find bits of it within the Amiga if you dig deep enough. Original 
BCPL had a considerable number of special codes generated by an 
aslerisk; on the Amiga only four of them remain: 



*# 
*■ 
•n 
*e 



generates a single asterisk; 
generates quotation marks; 
generates a newline {the "linefeed , 
generates an ASCII escape character 



ECHO "PRESS '-RETURN*' WHEN READY- 
ECHO "LINE 1 *nLINE 2" 

(Didn't know you could print two lines with one ECHO statement, 
did you?' 



But the serious one is the 'e sequence, which generates the ESC 
escape character. You might recognize this as CHR$(27) or hexade- 
cimal IB, but if you don't, no matter. It often has effects similar to 
those produced by pressing the ESC key. You probably know that 
pressing ESC followed by the "c' key clears the CL! screen. Jt also 
gets you out of certain annoying problems, such as a peculiar 
character set. Well then: If *e in quotes matches the ESC key, try 
this: 

ECHO "^ec" 

You were not surprised to see the screen clear, were you? 

You might perhaps wonder what value this has. It's easier to press 
two keys, ESC and "c", than to type in the whole line shown above. 
But ECHO is often used in batch files (which I like to call EXECUTE 
files, because you usually invoke them by means of the EXECUTE 
command). So you can have a command sequence - not a program, 
just a command sequence - clear the screen. It can also do other 
things for you, which we'll get to in a moment. 

File Nonsense 

By the way, the use of the asterisk is not restricted to the ECHO 
command. Anything that you put in quotation marks uses asterisk- 
escape capabilities. So if you want to name a file SNOW*JOB you 
may either call it exactly that. . .or 'SNOW**JOB". Remember: you 
only need to double the asterisk if you give the name within quotes. 

You can also slip quotation marks into the file name itself. If you 
want to call a file "CAT' - not CAT, but "CAT", with the quotes as part 
of the name - you may do so by calling it '♦'CAT*'". It will make Jt 
hard for others to reference the file by name. It will make it hard for 
YOU to reference the file by name. You really don't want to do this, 
except to prove that it can be done. 

I'm happy to report that the DOS rejects fancier file names, the ones 
you'll try to create using the newline and escape sequences. After 
you think about it, you'll be glad it did. 

TheCSl 



We've already tried the asterisk. You might try for some interesting If you generate the ESC character (and we know how to do that, 
effect with the next two by typing: don't we?) you can follow it with a left-square-bracket character 

{■[") snd the combination is called a CSI. CSI stands for Control 
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Sequence Introducer, which means Ihat something special will 
follow. If you get into the machine, you can also create a CSI as a 
single character, CHR$(155) or hex 9B. 

The CSI seems like a new form of ESCAPE, but it has quite a 
different character (no pun intended). The ESC is followed by one 
and only one action character; CSI may be followed by numeric data 
(which is noted) but terminates only when you reach the command 
character. The command character is usually alphabetic, and be 
careful: upper case versus lower case is significant here. 

This business of number followed by command is rather like the 
system used in ED, the screen editor, for "extended" commands. 
Those are the commands you get by pressirig the ESC key- Their 
system, as with CSI is: type the number first, and then the command 
letter; the command will be executed the appropriate number of 
times. CSI has its own commands, of course, not the ones that ED 
uses. 



the printing colour (30 is invisible, so is of less use}. Try these: 

ECHO ■*e[32m DARK HORSE *e[31 m" 
ECHO -*e[33m RED ROVERS *e[31 m" 

You can change colours several times on a line, If you wish. 

Now for the '40' codes. They change background colour as you 

print: 

ECHO '*e[41m INVISIBLE *e[40m" 
ECHO ■-e[42m BLACK BAK *e[40rn- 
ECHO ■•e[43m RED BACKS •e[40m" 

You won't see the output from the first line very well, since it will be 
printed white on white. Note that the background colour only is 
changed here. 

There are a few Interesting numbers in the to 7 range. Try: 



For example, the CSI command for "hnefeed" is "E" (note the upper 
case). So you can command: 

ECHO ■*e[6EBANANA' 



ECHO "^efl m Boldface! *e[Om" 
ECHO ■■•e[3rn Italics! *e[Om" 
ECHO ■*e[4m Underline 'e[Om- 
ECHO ■*e[7m Reversed! '^e[Om" 



You'll be pleased to see the computer skip six lines and then print 
BANANA. 

Just checking that you follow the syntax. In the above example, we 
MUST be in quotation marks; the asterisk indicates a special 
character follows; the e signals that this is an ESC sequence; the [ 
says, "here comes a special command": the 6 is read as the number 
of times to perform the following operation; the E is Ihe command 

for linefeed, so we do six linefeeds; and, as I think Freud said, the 
BANANA is just a BANANA. 

If you've coped with that one, I'll tell you that F (capitals again) is the 
command for NEGATIVE linefeed. So you might try: 

ECHO ■*e[5FHELL0" 

You'll see something you might have considered impossible; Ihe 
cursorgoingUPon the CLl screen! If you do much of this, you'll find 
yourself typing over old screen text, which is not fun. . , you still 
don't have true screen editing as you may know from earlier 
Commodore machines, 

i won't go through all the curious commands that can be invoked 
with CSI. Check The AmigaDOS Manual (Bantam Books); within it, 
look at the appendix in The Developer's Manual. You'll find lots of 
commands to play with and make the CLI screen do strange things. 
There's one in particular I'd like to show you: command m (lower 
case), Set Graphic Rendition, 



Note that code brings the font back to normal. 

A final note: you can use several of these codes, separated by 
sennicolons. So as a last grand combination, try; 

ECHO ■fe[32;43mRead "e[3;4mThe Transactor 

*e[0;32:43m regularly!*e[Om" 

You may have spotted that the sequence *e[Om restores everything 
to normal. When we used it in the middle of the last long hne in 
order to cancel the italics and underline features, we had to reinstate 
the colours we were using. 

Printer Footnote 

The same CSI codes that work with the screen will often work with 
the printer I often use ECHO with redirection in order to jot a note 
on Ihe printer. Thus: 

ECHOPRT:' August 15/87 Listing" 

This will spit out the correct message to the printer. 

But it's interesting to see that many of the printer codes are similar to 
those we have used to the screen. The whole list of printer control 
codes may be found in the massive Amiga ROM Kernal Manual; it 
has also been partially reprinted in numerous places. A simple 
example will do here: if your printer has an italics font, type: 



Graphic Rendition 



ECHO>PRT: '*e[3rr\ Italics! *e[Om' 



The command. "CSI. . numeric. . m" changes the way things are 
shown on the CU screen. The change is moderately permanent 
within the open CLI, so I try to change things back at the end of 
each line. So. . . you'll see two sequences of *e[ within the quotes, 
one to produce the effect and one to get us back. 

I like the "30'^ codes the best. They run from 30 to 33, and change 



The same code that did the job to the screen will do it to the printer. 

Conclusion 

You can certainly pep up your Startup-Sequence hie with a bit of 
colour and other special effects. And you might even have a better 
idea of some of the Amiga's marvellous inner space effects. 
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Adding Analog RGB Capability 
to the 1 902 Monitor 



Larry Phillips 
Vancouver, BC 



, ■ ,analog RGB mode was present only on very early 1902 monitors, . . 



When ] first purchased my Amiga, I thought that I would be able to 
use a 1902 for the monitor, as it has a switch position for RGB 
analog. This feeling was reinforced by the fact that the Amiga's 1080 
monitor looked identical to the 1902 in terms of the case, controls, 
and switches. Alas, it was not to be, for in Commodore's infinite 
wisdom, and probably at the insistence of the marketing types, the 
analog RGB mode was present only on very early 1902 monitors. 
Later versions had some components missing that crippled the 
analog RGB circuitry. This article describes how to add the compo- 
nents necessary. This modification will work on the 1902 only, and 
NOTonthel902A. 

Note: If you do not feel comfortable working inside your monitor, 
this modification is not for you! If this is the case, either find 
someone who has the experience and knowledge necessary or take 
this article and your 1902 to a qualified service technician. Read this 
disclaimer until you realize that 1 will not be held responsible for any 
damage you may do to yourself or your monitor. 

if you find the components already in place, yet the monitor wilt not 
allow analog RGB, it is possible that some traces have been cut on 
the board near the RGB switch, if so, you are on your own, but 
simply reconnecting them should be sufficient to get it working. 

Now to the modification itself. Figure 1 is the complete parts list, and 
all components are both commonly available and low cost. Figure 2 
shows the layout of the board and the approximate location of the 
parts to add. All parts to be added are clearly marked with silk 
screen on the 1902 main board. Step by step, here we go: 

1 . Remove the back cover 

- 6 screws 

2. Remove shield 0[i bottom of main board 

- unsolder and twist tabs 

3. Remove metal mounting plates holding input jacks and small 
boards. 

- 3 screws through main board 

- 1 screw holding the two plates together 

- ! screw holding RCA jack block 

- 2 posts holding RGB connector 

4. Remove metal shield from component side of board. 

- twist tabs 

5. Locate and suck the solder from the holes for the components to 
be added. 

- R7267/8/9 in area 1 . near 1C720 1 
-R7270/1/2 inarea3 
-D7218/19/20 in area 3 
-C7202/3/4 in area 3 

-C72 19/20 in area 2 
-JM123/4/5 in area 3 



6, Solder in components, paying particular attention to the polarity 
of the electrolytic capacitors and diodes. Capacitors are marked 
on the board's silk screening with a 'dot* near the negative lead. 
Diodes are shown with a picture just like the schematic repre- 
sentation. 

NOTE: the board is single sided, and the bonding is not the best on 
the traces, so use caution and low heat so you won't damage the 
traces. 

7, Replace the top shield and metal mounting plates, 

8, Test your work at this time by placing the switch in the third 
position (to the right as seen from the rear of the monitor, facing 
the switch) and hooking the Amiga to tfie monitor through a 
standard Amiga RGB cable. 

9- If all is well, replace the bottom shield and resolder the labs 

10, Some 1902 monitorshadasmaller hole through which the RGB 
switch protruded, allowing it to be used in only 2 positions 
(positive and negative RGBl), If this is the case, cut the slot in the 

■ case to allow the switch to be placed in the newly acquired RGB 

analog position . 

1 1 . Replace the cover. Enjoy! 



Resistors 



Figure l:ParULUt 

Capacitors 



R7267 
R7268 
R7269 
R7270 
R7271 
R7272 



150 ohms 
150 ohms 
150 ohms 
820 ohms 
820 ohms 
820 ohms 



C7202 330 uf 

C7203 330 uf 

C7204 330 uf 
C72I9 .01 uf 

C7220 47uf-10V 



lOV 
lOV 
lOV 



Diodes 

D7218 IN414S 
D7219 1N4148 
D7220 1N4148 

Jumpers 

JM123 wire 
JM124 wire 
JM125 wire 



Figure 2: Ad viewed from bottom of board 
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Amiga Dispatches 

by Tim Grantham, Toronto. Ontario 



As I write this, the stock price of CBM has dropped yel again lo about 8.50 
on the NYSE, where it has steadied. A quarterly report Is due out in the 
middle of August and I would not be at all surprised if it contains news of 
a loss, news that has already leaked to Wall Street. 

We will all know by the time you read this, of course, but don't be too 
disheartened if it does, CBM does not seem lo be laying off any more staff. 
In fact, they seem to be hiring on a small basis. In addition, part of the 
loss may be attributable to Initial manufacturing costs of the 500 and the 
2000. Reports indicate that the 500 has gotten off to a good start in sales 
and that should be reflected in the next quarterly report. 



This brings my network memberships to five. However, it has been so 
long since 1 last accessed Delphi that i have misplaced my password, II 
you think thai is indicative of my opinion of the value of Delphi, 1 shan't 
correct you, 

PD Tipfl ' 

J 

As usual, the arena (or should 1 say 'free-for-all'?) of public domain 
software has seen the arrival of some powerful new contenders. ACO 
2.00 by Steve Pietrowicz, currently available exclusively on PeopleLink, 
is an Amiga version of a concept originally introduced on a Macintosh 
program entitled VMCO. Faithful readers of this column may remember 
my description of VMCO in the late lamented TPUG Magazine. 

The program is intended for live telecommunicating. The display consists 
of a series of empty chairs around a conference table. As each atterjdee 
arrives, the empty chair is replaced with a picture of the new arrival. 
When that person makes a comment, they can switch the picture 
displayed to reflect the content of the comment. One might have a happy 
face, a flame' or angry face, a 'back-in-a-minute' face, and so on. Of 
course, this display only appears on the machines of those attendees who 
are running the software, and have the faces of each attendee stored in 
the prc^ram's face libraries. 



! have recently joined two more information services in my obsessive 
quest for Amiga information: GEnie and BIX. The latter is pretty expen- 
sive — accessedfromCanadathroughTymnetJt is$l5(US)per hourat 
1200 bps. That figure is for non-prime hours and there is an additional 
$25 (US) sign-up charge. 

I found it particularly irritating that nowhere are potential Canadian 
customers of BIX told that the Tymnet access charge is $6 (US) rather 
than the $2 (US) spelled out in the ads in BYTE and in the sign-on 
message, Most Canadians don't find out about the extra charge until they 
get their bills, I imagine. The only reason / found out was because my 
nasty suspicious nature made me ask the service rep who had called to 
confirm my sign-on. He had to go to some lengths to find out himself. 
Gmrr. 

BIX is a great place for in-deplh Amiga technical information, though. I 
was able to gel help on Charlie Heath's getflk requester for my keep 
program (coming RSN) directly from cheath himself. To many profes- 
sional programmers, the cost of the service is well worth the information 
gained. 

GEnie. on the other hand, is clearly intended to be a consumer network. 
So far, they have been a model of efficiency and service: costs are clearly 
stated, in Canadian dollars for Canadian customers, and documenlalion 
arrived prompUy. There is a vigorous Amiga club, *Starship Amiga*, 
operated by Deb Chrislensen, deb! delected from the Delphi network, 
where she had arrived after CompuServe had booted CBM from opera- 
tkin of its Commodore forums. I have not had an opportunity to spend 
much time wandering the decks of *Starship Amiga*, but for less than 
SIO (Can.) per hour (plus the $25 (Can.) signup fee), it appears to well 
worth investigating. 



The Amiga version, ACO, adds colour to the proceedings, so to speak. 
DPaint can be used to create your own faces, or they can be designed 
with the ACOfaces program available as part of the ACO. arc file. The 
whole Thing is built on Dan James' excellent comm terminal program. 

Journal is an ir^riguing program. It records all InputEvents generated 
by the input.device, including dmings, and stores them into a file. These 
events consist of key pre.sses and mouse actions. Then, using the 
accompanying Playback program, the sequence of InputEvents can be 
replayed through the input. device, fooling the Amiga into thinking they 
are really originating from the operator. The result is an exact playback of 
the user's interaction with the computer. Talk about the ghost in the 
machlnel 

Journal suggests a number of interesting applications; as a way to create 
script files for terminal programs; for software tutorials; and for product 
demonstrations. Users of DPaint II, for example, could see just how Jim 
Sachs created all those wonderful graphics, 

TWo new languages have arrived on the scene; Draco and Icon, 

Draco is described by its inventor, Chris Gray of Edmonton, Alberta, as a 
language combining all the best features of C and Pascal. Originally 
developed for CP/M-80 systems, Jeffries has added a Draco compiler for 
the Amiga. 

Icon is a descendant of SNOBOL, an interesting language with a host of 
powerful string-handling features. Icon also offers list processing and set 
manipulation conunands, but is better integrated and more consistent 
than Snoboi, Scott Ballanlyne has ported version 6 of Icon lo the Amiga 
already, and is now porting 6.3, which should be ready this fall. 
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Several issues ago, 1 hinted broadly that CBM should iiiake the include 
files available to the general public at a nominal charge, so that people 
like Jim Bullerfield could leave AmigaBASlC behind and start digging 
through the OS in assembly language and C without paying an arm and a 
leg for a compiler. I'm pleased to announce that CBM is doing exactly 
that: for $20 (US) you get two disks containing the C and assembly 
language include files and the 1 .2 Autodocs to tell you what it's all about. 
If you want to order them, send a request and a cheque to Laurie Brown 
at CBM's West Chester HQ. 

A note of warning: currently, the only PD assembler I know of that is 
completely compatible with the a include files, is A68k by Charlie Gibbs. 
Others require that the include files be reformatted first. 

TAB Books lias published Amiga Assembly languoge Progromming. 
(-271 1-H, $19.95). I don't know if it's any good, but it is the first of its 
kind. 

Hard and soft news 

You may remember my complaints last issue about Amiga Tax, a 
Canadian income tax calculation program. David Sopuch, one of the 
prc^rammers, tells uie that registered owners will be notified of the 
availability of an upgrade that fixes bugs and adds enhancements. Beta 
testers and Revenue Canada willing, it should be ready by December, at a 
cost of $29.95, 

Toronto's Eric Haberfellner has completed the latest version of his fine 
shareware VTlOO/102 terminal emulator Handshake. He has added 
Ymodem and batch Ymodem file transfers, and fixed some minor bu^. 
In a survey of available VTI 00 emulators recently carried out on Usenet, 
Haberfellner's program came out on top. All he requests is $25, folks. 

Comspec is delivering their version of a recoverable RAM disk (RRD) to 
owners of the AX2000 memory boards. The first 900 or so AX20OO units 
require a minor hardware fix to use the RRD. This is provided as part of 
the upgrade package, in addition to tlie software. Comspec's RRD is 
slightly different from others in that the Amiga literally sees it as another 
disk drive - it can be formatted, diskdoctored, disksalved and diskcopied. 
Most importantly, of course, it can survive a w'arm reboot (ctrl-amiga- 
amiga). 

By the time you read this, Comspec will have also announced the 
availability of their SCSI hard drives. Domenic DeFrancesto, designer of 
the both the RAM board and the SCS interface, told me that the SCSI 
interface will autoconfigure, has a bus pass-through and does not 
interfere with multitasking in any way. [t will provide transfer rates of 
nearly 290 Kb per second for reads and 250 Kb for writes, once the 
AmigaDOS hard drive support arrives from CBM. The drive chassis has 
room for one full height drive, or 2 half-height drives. In addition, two 
ports are provided to chain several other SCSI devices, including Macin- 
tosh hani drives, Rrst offerings consist of a 20 Mb and a 40 Mb drive. The 
SCSI interface itself will likely be available separately in the near future. 

ASDG Inc. makes a number of products that have been very well 
received, including Face, a floppy disk access accelerator program, and a 
2 Mb Zorro RAM board that is upgradable to 8 Mb. Now they are working 
on two other products: the 2600-aiid-l and SDP (Satellite Disk 
Processor). The former, to cost about $800 (US), is a lx)x for the 1000 that 
will accept plug-in cards intended for both the 1000 and the 2000, 
including the Bridge card. The SDP, as 1 understand it, will reorganize the 
tracks on a disk to provide faster access. All ASDG hardware comes with 
an unusually long iS-month warranty; all software is provided with 
lifetime free upgrades, and is not copy protected. Braoo! 



Michigan Software, the makers of the Insider RAM board, are now selling 
Kwikstart. This kit provides Kickstart 1,2 in ROM for the 1000, as it is 
now for the 500 and 2000. It doesn't lock you out of future versions of 
Kickstart, however. By simply holding the warm reboot keys a little 
longer, the Kwikstart ROMs will be switched out, and you can boot with a 
different Kickstart. The product works with the Insider board and c(]Sts 
$169.95 (US). Using the Kwikstart ROMs also frees 256K of the RAM 
previously used by the disk-loaded Kickstart - a well thought out 
product- 

VideoScape 3D is now available and the source of some spectacular 3D 
animation demos. Look for them on the new series of CBM television ads 
to start running in September, , , Digiview 2.0 and Digipaint 2.0 have 
also arrived. The former provides some first-rate image processing 
software and the laUer is a HAM-mode paint program that permits 
drawing with all 4096 colours. . . The makers of Acquiailion and 
Datamat two powerful relational database management programs, 
have responded to vociferous complaints of difficulty of use with im- 
proved user interfaces and documentation. . . Mimetics, publishers of the 
SoundScape system, have expanded their developer support to include 
full documentation of all the soiindacape .library functions and Aztec 
C support. , . 

Online 2.00 is a significant upgrade to the original with VTIOO and 
Tektronics terminal emulations added; Kermit, Ymodem and Zmodem 
protocols supported; autochop; ANSI colour; and the ability to keep up 
with text output. It no longer ho^ the printer device, either However, a 
small bug has surfaced: if you disable the autochop feature, Xmodem 
transfers will no longer work. Publisher Micro Systems Software is 
providing a free fix. 

Diga! (wish I knew what the name meant}, from Aegis Development, 
appears to be following in the footsteps of SoundScape. The company is 
posting documentation on tlie terminal emulations and the proprietary 
DoubleTalk protocol on the networks to encourage outside developers. 
The new version of the prrw^ram being developed by Aegis will irtclude 
the WXmodem protocol used by PeopleLink, and a chal window for live 
conferencing. 

B>' now you may know that the 500 provides NTSC output in mono- 
chrome only. Those who need a colour output for their VCR have three 
possible solutions. Mimetics will be selling genlocks for all three Amigas 
that, in addition to synchronizing the Amiga output to another video 
source, provide a colour NTSC signal from the RGBA output. CBM wilt be 
selling an an encoder that does the same thing for about $50 (US). Or you 
can make your own encoder, using the same Motorola 1377P chip that 
the 1000 uses, for about $25 in parts. You can write to Motorola for free 
documentation that includes a schematic. 

The Commodore 64 emulator I have mentioned in the past should be out 
by the lime you read this. It will cost about $1 50 (US), and consists of both 
software and a hardware interface that plugs into the parallel port and 
permits connection of the 1 54 1 disk drive. The makers claim emulation is 
complete, with the exception of the SID chip, and they now have GEOS 
running on the Amiga. The emulator takes over the computer, however. 
No multitasking possible. 

Microfiche Filer provides a uniquely Amiga way of viewing a database: 
as the name implies, all the records are present on the screen in a 
miniaturized format. One can scan them with a 'magnifying glass' and 
zoom in on particular records. Because it handles graphic data as well as 
text and numbers, this is an ideal means to store and dLsplay real-estate 
properties, personnel records and so on. A possible limitation is that the 
entire database must be in memory at once. 
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DarrinMassena'sMenuEd program now works under 1.2. Now, if only 
someone would finish the Egad gadget editor . . Textcraft Plus has 
been released in Europe. No word aboul when it will cross the sea. . . 
SoftCircuits Inc. has announced that a schematic capture program called 
Scheme is in beta test and will soon be available for $499,95 (US). It is 
compatible with their successful PCLO printed circuit board layout 
software series, which now includes PCLOjr, a scaled-down version for 
borne use selling at £69.95 (US), . . The German version of the 2000, 
available in Canada and Europe, has wait states in the RAM plumed into 
the so-called CPU bus slot that slow the machine to about 85-90^ of the 
speed of a 1000. The 500 and the West Chester 2000 (when it arrives) will 
not have this problem. 

Joanne Park here In Toronto removed a resistor from the encoder circuit 
in her 1000 as described in Amazing Computing, Vol. 2, No, 7, tested it 
with a vectofscope and found thai the colour balance was bang on. 
However, her Amiga was a pre-June 'SG machine: the Amazing article 
said the removed resistor in these machines should be replaced with a 
470K Ohm resistor ! suppose the lesson here is that those who need to 
make the change should gel someone with a vectorscope to check it. . . 

TDI will get some needed competition when Oxxi, of Maxiplan reknown. 
comes out with their Modula 2 compiler, called Benchmark. Reports 
from beta testers indicate that it is very fast. , . City Desk, a desktop 
publishing program written for MicroSearch Inc. by SunRize Industries 
(who also make the PerfectSound stereo digitizer), is now available. Fbr 
more info, contact Tom Hayden at (713) 988-2818, 9-6 CST, , . Two 
attractive disk-based magazines have appeared for the Amiga, The New 
Alladin and AMnews. The latter is of particular interest to Canadians 
since it is published in Montreal. The full address is Vertex Associates, 
415 Trenton Ave., Montreal, PQ, H3P 2A1. Phone: (514) 739-330L 

Has anyone besides me noticed the bug in the opt i version of the dir 
command that appears when it is used with the ram: disk? If you delete a 
file, the file disappears but the memory does not gel deallocated. You can 
have an empty ram: disk that takes up 2WK of precious memory! 

Vm glad to see that an increasing number of third-party Amiga devel- 
opers have established a network presence. Aegis Development and 
Micro Illusions have their own conferences (forums) on BIX; Micro Sys- 
terns Software fields questions on CIS; ASDG, C Ltd., and Gold Disk make 
regular appearances on major networks. Most Amiga developers have 
proven to be accessible and responsive to their customers and I hope they 
continue to do so. 

The Amiga, network computing and the whole damn thing 

In my nine-io-five capacity as ossislant editor of Design Engineering 
magazine, I have been able to gain a fairly broad perspective on the use of 
computers, from micros to supercomputers. 

One of the most exciting developments is in the area of 'distributed 
computing'. This requires multiple computers communicating over a 
network. The idea is to distribute the execution of a single large 
program over all the machines in the network, assigning procedures to 
the most appropriate computer. Image processing functions, for exam- 
ple, could be executed by a dedicated array processor on the network, 
while the user interface for the program could be handled by a personal 
computer The entire process would be transparent to the user, sitting at 
his or her console. More importantly, it would be independent of the 
network, computers or operating systems being used - a tall order, but 
one that embodies the dream of integrating all computer resources into 
one huge computing system. 



Xerox developed the first distributed computing system, implementing 
RPCs (remote procedure calls) under its XNS (Xerox Network System), 
Sun Microsystems made RPCs more broadly available by implementing 
them under TCP/IP, an industry standard networking protocol, and 
NFS (Network File System), its own network data-sharing protocol that 
has become a de facto industry standard. Now Apollo has thrown its 
hat into the token ring by placing the specifications for its NCS (Network 
Computing System) into the public domain. 

Apollo's scheme is the most flexible, powerful system yet, for a number 
of reasons. One, in addition to being machine and operating system 
independent, it's network independent. It could quite literally be imple- 
mented over a telephone line with a modem at each end, though the 
transmission overhead would slow down program execution probably 
beyond the point of practicality. Two, it supports concurrent program- 
ming. The same procedure could be installed and called on multiple 
machines simultaneously, with all results funnelled to the caUing 
program. 

(I recently saw a demonstration of over 30 Apollo workstations concur- 
rently calculating a Mandelbrot picture. What would normally have 
taken well over two hours on one workstation took seuen minutes on 
the network. Bear in mind that all the workstations were simultane- 
ously being used by their operators for other tasks - some were not 
even aware that their machines were also working on the Mandelbrot 
picture.) 

Thirdly, it provides for dynamic load balancing across the network. 
What this means is that If one computer has more CPU time free than 
another, the system will have the RPC executed by that machine. 
Besides providing more efficient use of the computing hardware availa- 
ble, this makes life easier for the programmer writing the distributed 
application. He or she does not have to know which machine(s) carry 
the code for the RPC. 

Unfortunately for Apollo, the industry momentum is behind Sun's NFS 
system. Adopting Apollo's superior system would mean a good deal of 
retrenching. Nevertheless, people are impressed with the system's 
features. Apollo has established the Network Computing Forum to 
discuss distributed computing and over thirty companies have joined, 
including Sun, Apple, Texas Instruments and Motorola. My sources 
indicate that members want to see the features of NCS developed under 
NFS, 

Where does the Amiga fit into this? Now that Ameristar Technologies 
has developed Ethernet boards for the Amiga and NFS client software, 
the Amiga can fit into a distributed computing environment. It would 
provide much of the same functionality as the workstations - the 
graphic interface, the multitasking - but at a low cost. With the 
concurrent computing capability provided by NCS, a network consist- 
ing entirely of Amigas could simultaneously execute a single program. 

The more I learn about the industry as a whole, the more I see the 
Amiga filling a large niche between the workstation and the micro, TBM 
and Apple have each developed such products but at several times the 
price of the Amiga without several times the capability. 

Vm always interested in any comments or questions you may have. 
They can be sent to me c/o The Transactor, or via electronic mail 
addressed to 71425,1646 on CompuServe; AMTAG on PeopleLink; 
dbpalcher on BIX; t,grantham on GEnie; or to Tim Grantham on 
Wayne Beyea's fine Bloom Beacon BBS at (416) 297-5607, 
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News BRK 



Submilting NEWS BRK Press Releases 

If you have a press release you would like ro submit for the NEWS BRK column, 
make sure that the computer or device (or which the product is intended is 
prominently noted. We receive hundreds of press releases for each issue, and 
ones whose intended readership is not clear must unfortunately i^o straight to the 
trash bin. Il should also be mentioned here that we only print product releases 
which are in some way applicable to Commodore equipment. News of events 
such as computer shows should be received at least 6 months in advance. 

Transactor News 

No-Faulf Profiram Entry Insurance 

We get several letters in the wake of each issue reporting problems with 
programs typed in from listings in the magazine. We understand the frustration 
readers feel when they have typed in several pages of DATA statements or 
assembler source only to find that the resulting program runs either incorrectly 
or not at all. whether it was their error or ours that is to blame. 

We're hoping that our new No-Fault Program Insurance system will provide a 
way out. Here's how il works: let's suppose you've just entered a long program 
from the latest issue and saved it to disk. Now you run it but your machine 
crashes, so you unload a few appropriate expletives and load it back in to 
recheck the Verifizer codes, A few hours later, your eyeballs are spinning in 
counter-rotating circles and you still haven't found the bug, so you save the 
program to a new disk, label it clearly with your name, address and phone 
number, plus the volume and issue number you were workmg from, and drop it 
in the mail to us with a brief description of the problem. 

When we get your disk, we'll return it with the official version of the program 
alongside yourown as soon as possible. You1l be out the price of the postage, but 
you'll have a working program. We'll be out the postage too, but well have a 
hand-entered copy of the program with which we can find out whether the 
listing in the magazine contains an error. That will make it a lot easier for us to 
track down the occasional bug amongst the many programs we publish, so that 
we can print corrections as soon as possible after the original version appears. 

By the way, if you'd like to check with us by phone for bug reports before you 
mail in the disk, that's fine, and just might save you the e>[tra trouble of getting 
the package ready- 
Send TPUG &ibscrlptioiis to TPUGI 

[f you wish to receive the Transactor containing the insert for TPUG inembcrs 
(Toronto Pet Users Group), you must be a TPUG member To become a TPUG 
member, write them at 5300 Yonge Street, Toronto, Ontario, M2M 5R2. 

You can do yourself, TPUG, and us a favour by writing to them directly. Using 
our subscription cards to start or renew TPUG memberships may save you a few 
cents in postage, but can lead to bureaucratic slip-ups resulting in shipment of 
the wrong magazine, or at best a delay in your subscription. Also, please 
remember to make cheques payable to "TPUG Inc. ' for TPUG memberships. 

Transactor Renewals 

Many subscription renewals arrive with a request that they be "back-dated" to a 
previous issue. The main rea,son we can't oblige is the postage difference 
between copies that go out as part of the bulk subscriber mailing and a single 
copy at regular rates (you may have noticed that our price for back issues 
includes the cost of postage). Subscriptions can only be started with the next 
issue due out. Earlier magazines must be ordered as back issues. 

Subscription orders must be received at least three weeks before the release of 
an issue to ensure that the subscription will start with that issue. So, if you order 
a subscription and don't gel the next issue that comes out, it may be that we 



received it Too late to get your name to the printer; your first issue should be the 
following one. 

Vse the New Subscription Cards! 

When ordering subscriptions or Transactor products, please use a subscription 
card from the most recent issue. The cards are constantly being updated, and 
product and price information from older cards is no [onger valid. Sub cards that 
show our old address wilt take longer to reach us, and many of the products 
listed are no longer available. The most notable difference between the old and 
new sub cards is the Canadian price for a year's subscription: it is now $1 9.00, 
and the $15.00 price listed on the older (:ards will no longer be honoured. 

New Transactor Special Offers 

Beginning with this issue, we are starting a policy of special offers every issue. 
The subscription card announces the offer, which Is valid for items ordered from 
that subscription card only, and only for the specified time. 

The special offer this issue is for Transactor disks: buy any three, and get two 
free! This does not apply to disk subscnplions, only to three disks ordered at one 
time. Simply use the order card (insert from this issue only), mark off any 5 disks, 
but send payment for only 3 (or check off 10 and pay for 6). This offer applies 
only to orders postmarked before November 1, 1987, so we recommend you 
take advantage of it now! 

New Combo-Subscription Premiums 

Up to now, when you ordered a combined magazine/disk subscription, we sent 
you a free Transactor T-Shirt to sweeten the deal. Sorry, but we have to 
withdraw that offer, effective immediately. Instead, you now get your choice of 
the T-Shirt, the Potpourri Disk, or the TransBasic 2 Disk and Manual - 
whichever suits you bestl Just check the appropriate box a1 the top of the Order 
Form when you fill in your combo- subscription application, 

\}S. Orders Invoiced En Canadian Dollars 

[f you ordered a subscription from the U,S, and received an invoice for S19.50, 
don't be alarmed: that's 19,50 Canadian dollars, which works out to just under 
S15.00 US at current exchange rates. 

Advertisers Wanted 

If anyone is interested in placing full-page, half-page or quarter-page colour or 
black and white ads in the Transactor, please contact us for rates and informa- 
tion. Yup, you heard right. We'll lake ads now, but space is limited. Our ceiling 
currently is the cover spots plus 5 pages of the interior. 

Group Subscription Rates: The 20/20 Deal 

The Transactor has always been popular among Commodore user groups, so to 
encourage new subscribers we are offering quantity discounts for magazine and 
disk subscriptions: 20 percent off for group orders of 20 or more subscriptions. If 
you can get togelhei enough friends or club members, just put alt the subscrip- 
tions in a single envelope, and you gel the discount. You don't need to be a user 
group to qualify - any 20 or more subscription cards in a single package get the 
20/20 deal, no questions asked. 

JMail-Order Products No Longer Offered 

We have removed several products from our mail-order card: The Gnome Speed 
Compiler and Gnome Kil Utility, the "pocket" series of software, PRISM's 
SuperKit 1541, the BH 100 hardware course material, the AnctiorVolksmodems, 
and the Comspec 2 megabyte RAM expansion units. We stiH have some stock of 
the software and can order more of the other products if necessary, so we should 
be able to fill any orders from previous subscription cards. 
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Transactor Mail Order 

The following details are for products listed on the mail order card, tf you have a 
parlicular question about aji item that isn't answered here, please write or call. 
We'll get back to you and most likely incorporate the answer into future editions 
o( these descriptions so Ih^ others might benefit from your enquiry, 

■ Moving Pictures - the C-64 Animation System, $29.95 (US/C) 

This package is a fast, smooth, full-screen animator for the Commodore 64. 
written by AHA! (Acme Heuiistic Applications!], With Moving Pictures you use 
your favourite graphics tool to draw the frames of your movie, then show Jt at full 
animation speed with a single command. Movie scripts' written in BASIC can 
use the Moving Pictures command set to provide complete control of animated 
creations. BASIC is still available for editing scripts or executing programs even 
while a movie is being displayed. Animation sequences can easily be added to 
BASIC programs. Moving Pictures features include, split screen operation - part 
graphics, part text - even while a movie is running; repeat, stop at any frame, 
change position and colours, vary display speed, etc; hold several movies in 
memory and switch instantly from one movie to another; instant, on-line help 
available at the touch of a key; no copy protection used on disk. 

■ The Potpourri Disk, $17-95 US, $19.95 Cdn, 

This is a C-64 product from the software company called AHA!, otherwise 
known as Nick Sullivan and Chris Zamara. The Potpourri disk is a wide 
assortment of 18 programs ranging from i^ames to educational programs to 
utilities. All programs can be accessed from a main menu or loaded separately. 
No copy protection is used on the disk, so you can copy the prc^rams you want 
to your other disks for easy access. Built-in help is available from any program at 
any time with the touch of a key. so you never need to pick up a manual or exit a 
program to learn how to use it. Many of the programs on the disk are of a high 
enough quality that they could be released on their own, but you get all 18 on the 
Potpourri disk forjust $17.95 US/ $19.95 C^adian. Seethe Ad in this issue for 

more information, 

■ TransBASlC 11 $17.95 US, $19.95 Cdn, 

An updated TransBASIC disk is now available, containing all TB modules ever 
printed. The first TransBASIC disk was released just as we published TransBASIC 
Column "9 so the modules from columns 10 J 1 and 12 did not exist. The new 
manual contains everything in the original, plus all the docs for the extras. There 
are over 140 commands at your disposal. You pick the ones you want to use, and 
in any combination! Il^s so simple that a summary of instructions fits right on the 
disk label. The manual describes each of the commands, plus how to write your 
own commands. 

People whoon^ered TB 1 can upgrade to TB It for the price of a regular Transactor 
Disk (8,95/9,95). If you are upgrading, you don't necessarily need to send us 
your old TB disk; if you ordered it from us^ we will have your name on file and 
will send you TB II for the upgrade price. Please indicate on the order form that 
you have the original TB and want it upgraded. 

Some TBs were sold at shows, etc, and they won't be recorded in our database. If 
that's the case^ just send us anything you feel is proof enough (eg photocopy 
your receipt, your manual cover, or even the diskette), and TB II is yours for the 
upgrade price. 

■ The Amiga Disk, $12.95 US, $14.95 Cdn. 

Finally, the first Transactor Amiga disk is available. It contains all of the Amiga 
programs presented in the magazine, of coun^, including source code and 
documentation. You will find the popular "PopColours" program, the program- 
mer's companion "Structure Browser", the Guru-killing ^'TrapSnapper", user- 
friendly "PopToFronl^ and others. In addition, we have included public domain 
programs - again, with documentation - that we think Transactor readers will 
find useful. Among these are the indispensable ARC; Csh, a powerful CLI- 
replacement DOS shell; BLJnk, a linker that is much faster and has more features 
than the standanj ALink; Foxy and Lynx, a 6502 cross assembler and linker that 
makes its debut on the Amiga Disk; and an excellent shareware text editor called 
UEdit. In addition, we have included our own ex presston-e valuator calculator 
that uses variables and works in any number base. All programs contain source 
code and documentation: all can be run from the CLi, and some from Work- 
bench, There's something for everyone on the Transactor Amiga disk. 



■ Transactor T-Shirls, $13,95 US, $15.95 Cdn. 

■ Jumbo T-Shirt, $17.95 US, $19.95 Cdn. 

As mentioned earlier, they come in Small, Medium, Large, Extra Urge, and 
Jumbo. The Jumbo makes a good night-shirt /beach-top - it's BIG. Tm 6 foot tall, 
and weigh in at a slim 1 50 pounds - the Small fits me tight, bul that's how I like 
them. If you don't, we suggest you order them 1 size over what you usually buy. 

One of the free gift choices we offer when you order a combination magazine 
AMD disk subscription is a Transactor T-Shirt in the size and colour of your 
choice (sorr>', Jumbo excluded). The shirts come in red or light blue with a 3- 
colour screen on the front featuring our mascot, Duke, in a snappy while tux and 
top hat, standing behind our Ic^o in 3D letters. 

■ Inner Space Anthology $14,95 US, $17.95 Cdn, 

This is our ever popular Complete Commodore Inner Space Anthology. Even 
after two years, we still get inquiries about its contents. Briefly, The Anthology is 
a reference book - it has no "reading" material (ie. "paragraphs"). In 122 
compact pages, there are memory maps for 5 CBM computers, 3 Disk Drives, 
and maps of COMAL; summaries of BASIC commands. Assembler and MLM 
commands, and Wordprocessor and Spreadsheet commands Machine Lan- 
guage codes and modes are summarized, as well as entry points to ROM 
routines. There are sections on Music, Graphics, Network and BBS phone 
numbers, Computer Clubs, Hardware, unit-to-unit conversions, plus much 
more. . . about 2,5 million characters tolalf 

■ The Transactor Book of Bits and Pieces "1, S14,95 US, $17.95 Cdn, 

Mot counting the Table of Contents, the Index, and title pages, it's 246 pages of 
Bits and Pieces from issues of The Transactor, Volumes 4 through 6. Even if you 
have all those issues, it makes a handy reference - no more flipping through 
magazines for that one bit [hat you just ktiow is somewhere. . . Also, each item is 
forward /reverse referenced. Occasionally the items in the Bits column appeared 
as updates to previous bits Bits that were similar in nature are also cross- 
referenced. And the index makes it even easier to find those quick facts that 
eliminate a lot of wheel reinventing, 

■ The Bits and Pieces Disk, S8.95 US, 9,95 Cdn. 

■ Bits Book AND Disk, $19.95 US, 24.95 Cdn, 

This disk contains all of the programs from the Transactor book of Bits and 
Pieces{the "bits book"), which in turn come from the '3its and Pieces" section of 
past issues of the magazine. The "bits disk" can save you a lot of typing, and in 
conjunction with the bits book and its comprehensive index can yield a quick 
solution to many a programming problem. 

■ The G-LINK Interface, $59.95 US, 69.95 Cdn, 

The Glink is a Commodore 64 to lEBH interface. It allows the 64 to use IEEE 
peripherals such as the 4040, 8050, 9090, 9060, 2031, and SFD-lOOl disk 
drives, or any IEEE printer, modem, or even some Hewlett-Packard and 
Tektronics equipment like oscilloscopes and spectrum analyzers. The beauty of 
the Glink is its "transparency" to the C64 operating system. Some IEEE 
interfaces for the 64 add BASIC 4.0 commands and other things to the system 
that sometimes interfere with utilities you might like to install. The Glink adds 
nothing! In fact it's so transparent that a switch is used to to^le between serial 
and IEEE modes, not a linked-in command like some of the others. Switching 
from one bus to the other is also possible with a small software routine as 
described in the documentation. 

As of Transactor Disk *19, a modified version of Jim Butlerfield's ^'COPY-ALL" 
will be on every dusk. It allows file copying from serial to IEEE drives, or vice 
versa. 

■ The TT@ns@ctor 1541 ROM Upgrades, $59.95 US, $69.95 Cdn. 

You can burn your own using the ROM dump file on Transactor Disk *!3, or you 
can get a set from us. There are 2 ROMs per set, and they fix not only theSAVE@ 
bug, but a number of other bugs too (as described in PA. Slaymaker's article, Vo! 
7, Issue 02). Remember, if SAVE® is about to fail on you, then Scratch and Save 
may just clobber you too. This hasn't been proven 100%. but these ROMs will 
eliminate any possibilities short of deliberately causing them (ie, allocating or 
opening direct access buffers before the Save). 

NOTE: Our ROM upgrade kit does NOT fit in the 1541C drives. Where we supply 
two ROMs, Commodore now has it down to one MASSIVE 16 Kbyte ROM. We 
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don't know if the new drives slill contain the bugseliminated by our kit, but we'll 
find out and re-cut a second kit if necessary. In rhe meantime, 154IC owners 
should not order this item unlil further notice. 

■ The Micro Sleuth: C64/154i Test Cartridge, S99,95 US, $129,95 Cdn. 
We never expected this cartridge, designed by Brian Steele (a service technician 
for several schools in southern Ontario), would turn out to be so popular. The 
Micro Sleuth will lest the RAM of a C64 even if the machine Is too sick to run a 
pr(^ram! The cartridge lakes complete control o( the machine. It tests all RAM in 
one mode, all ROM in another mode, and puts up a menu with the following 
choices: 



1) Check drive speed 

2) Check drive alignment 

3) 1541 Serial test 

4) C64 serial lest 



5) Joystick port 1 test 

6) Joystick port 2 test 

7) Cassette port test 
8] User port test 



A second board (included) plugs onto the User Port; it contains 8 LEDs that let 
you zero in on the (aulty chip. Complete with manual. 

Transactor Disks, Transaclor Back Issues, aad MkroBche 

All Transactors since Volume 4 Issue 01 are now available on microfiche. 
According lo Coniputrex, our fiche manufacturer, the strips are the "popular 98 
page size", so ihey should be compatible with every fiche reader Some issues are 
ONLY available on microfiche - these are marked "MF only". The other issues 
are available in both paper and fiche. Don't check both boxes for these unless 
you want both the paper version AND the microfiche slk:e for the same issue. 

To keep things simple, the price of Transactor Microfiche is the same as 
magazines, both for single copies and subscriptions, with one exception: a 
complete set of 24 {Volumes 4, 5, 6. and 7) will cost just $49.95 US, $59.95 Cdn. 

This list also shows the "themes^' of each issue. Theme issues didn't start until 
Volume 5, Issue 01. Transactor Disk *1 contains all prc^rams from Volume 4, 
and Disk '2 contains all programs from Volume 5, issues 1-3. Afterwards there is 
a separate disk for each issue. Disk 8 from The Languages Issue contains 
COMAL 0.14, a soft-loaded, slightly scaled-down version of the COMAL 2,0 
cartridge. And Volume 6. Issue 05 lists the directories for Transactor Disks I to 9. 



I Vol. 4, Issue 01 

I Vol, 4, Issue 02 

I Vol 4, Issue 03 

I VoL 5, Issue 01 

I Vol. 5, Issue 02 

I Vol. 5, Issue 03 

I VoL 5, Issue 04 

IVol.SJssueOS 

I VoL 5, Issue 06 

I Vol. 6, Issue 01 

I Vol. 6, issue 02 

I VoL 6, issue 03 

I Vol. 6, Issue 04 

I Vol, 6 Jssue 05 

I Vol. 6, Issue 06 

iVol.TJssueOl 

Vol. 7, Issue 02 

VoL 7, issue 03 

Vol. 7, Issue 04 

Vol 7, Issue 05 

Vol, 7, Issue 06 

Vol.SJssueOl 

Vol. 8, Issue 02 

VoL 8, Issue 03 



MF only 
MF only 
MF only 



(I 



(I 



(■Diskl) ■ Vol. 4, issue 04- 

(■Disklj ■ Vol, 4, Issue 05- 

(■ Diskl) ■ VoL 4, Issue 06 - 

-Sound and Graphics 

- Transition to Machine Language - MF only ( 

- Piracy and Protection - MF only 

- Business & Education - MF only 

- Hardware & Peripherals 

- Aids ^^ Utilities 
-More Aids & Utilities 

- Networking & Communications 

- The Languages 

- Implementing The Sciences 
Hardware & Software Interfacing 
fieal Life Applications 
ROM / Kernel Routines 
Games From The Inside Out 
Programming The Chips 
Gizmos and Gadgets 
Languages II 

Simulations and Modelling 
Mathematics 
Operating Systems 
Feature; Surge Protector 



■ Diskl) 
I Diskl) 
I Disk 1) 
I Disk 2) 
I Disk 2) 
I Disk 2) 
I Disk 3) 
I Disk 4) 
I Disk 5) 
I Disk 6) 
I Disk 7) 
I Disk 3) 
I Disk 9) 
Disk 10) 
Diskl!) 
Disk 12) 
Disk 13| 
Disk 14) 
Disk 15) 
Disk 16) 
Disk 17) 
Disk 18) 
Disk 19) 
Disk 20) 



Industry News 



The following items are based on press releases recently received from the 
manufacturers. Please note that product descriptions are not the result of 
evaluation by The Transactor, 

The Tronsoctor 



AmiEXPO Jn New York City 

On October 1 0, 1 987, AmiEXPO, a show dedicated exclusively to the Amiga and 
its aftermarket, will open to the public in New York City. 

Among the exhibitors are Activisbn, subLogic, Central Coast, Brown-Wagh, 
Amazine Computing, AmiProjecl. Byte by Byte, Gold Disk, Ameristar, Manx, 
Lattice, Oxxi, and a host of others. Sounds like ifll be a good one! 

Informotion on show hours and admission prices were not aoailabfe ai ihis !me. 
For more informaiion, contoa AmiEXPO Headquarters, 21 1 East 43rd Street 
Suite 301 New York. NY, fOOlT, 1-80032 AMIGA. In NY call (2 1 2) 867-4663. ' 

^>ecial Amiga Scrftware Offer 

Commodore has announced a special software promotion for Commodore 
Computer Clubs and certified educators. 

Commodore User Groups and their members, plus certified teachers and faculty 
members of Canadian schools, colleges and universities purchasing any Amiga 

compulerbetweenAugusl21andOctober31,1987,wlllbeofferedaselectionof 
brand-name software packages for a fraction of their usual retail price. 

The "creativity software" package, with asuggested retail value of over S750 will 
be available for only SI99, and includes; 

• DELUXE PAINT II by Eledronic Arts 

• PAGESETTER, the desktop publishing system from Gold Disk 

• AEGIS ANIMATOR by Aegis Development 

• TEXTCRAFT PLUS word processor from Commodore-Amiga 

• MARBLE MADNESS, the arcade game, also by Electronic Arts 

• A 500XJ joystick from Epyx 

The "productivity software" package, suggested retail over $1400, will be 
offered for only $399. This package contains: 

• WORD PERFECT a leading word processor from Word Perfect 

• PACESETTER DELUXE desktop publishing system with Laserscript, Fontset I, 
and Hyphenation modules, by Gold Disk (upgradable lo Professional Page), 

•SUPERBASE PERSONAL, an innovative database from Progressive Periph- 
erals and Software 

• MAXIPLAN 500, a multi-tasking spreadsheet prc^ram from Oxxi Inc. 

• DIGA telecommunications program from Aegis 

• DELUXE VIDEO presentation video and graphics system from Electronic Arts 
•CLIMATE, an icon shell for Amiga DOS from Prc^ressive Peripherals and 

Software 

These combination Amiga and software offers will be available in more than 600 
independent retail, and participating Canadian Tire and K-Mart stores across 
Canada. The promotion is aimed at influential users in our two most important 
markets - home/hobby and education. 

For more information, piease contact, Stan Pagonis or Katherine Dimopoulos, 
Commodore Business Machines, 3470 Pharmacy Avenue, Amcourt Ontario 
(416)499-4292. 

Benchmark Modula-2 fi-Mu Oxxi, Inc, 

Oxxi, Inc. has begun shipping Benchmark, a Modula-2 development s>stem for 
the Amiga. The package includes an integrated compiler, linker and EMACS- 
based editor, along with separate version of the compiler and linker, Modula-2 
standard libraries plus full Amiga support libraries, profiling, cross-reference 
and other utilities, extensive demos, and more than 700 pages of documentation. 

Oxxi report average compilation speeds of 10,000 lines per minute with burst 
speeds of up to 30,000 lines per minute. Their proprietary linker is claimed lo be 
similarly very fast compared with other high level language packages available 
for the Amiga. Benchmark Modula-2 is said by Oxxi to generate object code files 
of comparable size and execution speed to those created by the Aztec C compiler 
from Manx Software Systems Inc, 
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In addition lo Ihe basic $199 (US) package, three add-on products at $99 will be 
available at the lime of Benchmark's official September release. These products 
will have extensive independent documentation and examples, but can only be 
used in conjunction with the basic package. They are: 

• C Language Standard Library, including versions of prinlf, scant, Jopen, and 
many other standard C functions for easy porting of C programs to Modula-2. 

• A special ^simplified' set of the Amiga standard libraries to allow quick, painless 
creation of Inluilion windows, screens, gadgets and menus, plus convenient 
access to the IDCMP (Intuition's message port), the console device, speech 

synthesis, etc, 

• IFF Libraries and a Graphic Image Resource Management library/ utility. These 
will allow the prc«^rammer to process IFF files, and to include graphics data. In 
any of three formats, with program code for fast run-time access. The three 
formats currently supported are Inluilion (BOB) formal Simple Sprites and 
Virtual Sprites, 

For further infbnrtation, contact Oxxi inc., i835'A Dams Way. Fuiierton. 
California 92631. Telephone (714) 999-6710. 

DesignText. from DeslgaTech Business Systems Inc, 

DesignText, a full-featured WYSIWYG (What You See Is What You Gel) word 
processor for the Amiga, is scheduled to be^in shipping October 1, 1987. The 
product makes use of the Amiga's standard Intuition user interface, with 
extensive use of gadgets, pulldown menus (most menu options also have 
keyboard shortcuts] and windows. Fast scrolling of the text can be accomplished 
either from the keyboard or with the mouse; horizontal scrolling is also 
supported beyond the standard 80 column screen width. Both interlace and non- 
interlace displays are available. 

DesignText allows formatting in multiple columns, editing of multiple docu- 
ments in multiple windows simultaneously, tabular input of figures, semi- 
automatic hyphenation and a selection of thirteen 8x8 fonts, each with a 12x24 
equivalent for printer output. Printing can be done in up to four passes for 
additional resolution. IFF Graphics may be freely interspersed with text, and 
normal printing can be interspersed with the bit-mapped printing used for the 
special DesignText fonts. 

Among the many other special features of DesignText are automatic index and 
footnote generation, widow and orphan control, special drivers for popular 
printers, allowing up to 292 dots per inch, the ability to import TextCraft, 
' Scribble and Ascii files, two speil-checking modes (real-time and whole- 
document), complete on-line help^ and optional terminal modules. 

Apart from DesignText itself, the package also includes an easy-to-use data base 
called PeopleBase. PeopleBase is fully integrated with DesignText and can be 
called as a menu selection from within the word processor. It offers form letter 
and Little Black Book generation, address list and mailing label printing, client 
contact updating, multiple search criteria, and file security. 

DesignText will sell for S79 (US) for advance orders, and at tfie regular price of 
SI29 (US) upon release. For more information, contact Designfecfi Business 
Systems Inc., "304-850 Burrard Slreet. Vancouver, British Columbia V6Z 2Jl 
Canada: or telephone (604) 669-1855. 

JFbrth, from Delta Research Inc. 

Delta Research has announced JForth for the Amiga, a software development 
environment based on the Forth 83 standard. The FIG and Forth-79 standards 
are also supported. Special toolboxes simplify development for the Amiga. 
Completed applications can be ^turnkeyed' and distributed without royallies. 

JForth^s code is claimed to be comparable in speed to C. Programs are compiled 
directly into machine code, unlike most Forths, which interpret tokens at run- 
time, 

JForlh is an interactive environment and a compiler. Any subroutine, variable, 
constant or data structure can be tested directly irom the keyboard. By compiling 
incrementally, one can modify a program, compile, link and test in seconds- 



Utilities include a 68000 assembler and disassembler, search and sort routines, 
kx:al variables, and floating point. Amiga structures and constants are predefined 
in ",r ^fe corresponding to the ".h" files used in C. Amiga library routines are 
called by name. An Object Oriented Development Environment (ODE] is also 
included. Example programs demonstrate graphics, HAM mode, speech synthe- 
sis, pull-down menus, etc. Source code for most of the system is Included. 

JForth is general purpose and can be used to develop games, business applica- 
tions, music s>stem, etc. JForth will run about four times faster on Amigas 
equipped with a 1 7 MHz 6S02O processor. This makes it suitable for use in CPU- 
intensive engineering applications, 

JForth is anailabfe at an introductory price of S99.95 US. Contact: Delta 
Research, 201 D Street, Suite 15. San Rafael, California 94901, (415) 485-6867 

LexCheck, from C.D.A Inc. 

C.D.A. Inc. has announced LexCheck, a spelling checker for the Amiga. 
LexCheck works with Textcrafl, Scribble! and Notepad formatted files as well as 
all ASCII text files. The master dictionary contains 100,000 words and you may 
add your own words to the auxiliary dictionaries. Because Ihe dictionary always 
resides on disk, LexCheck uses less than lOOK of RAM, and thus can be run 
simultaneously with most word processors. 

In addition to standard English vocabulary, LexCheck also recognizes a wide 
variety of proper names, place names and technical terms. C.D.A. reports that a 
two-page document can be checked in under one minute. 

LexCheck runs under Workbench 1.2, and retails for S42.95 (US). Contact 
C.D.A. Inc.. P.O. Box 1052. Yreka, California 96097. telephone (9 1 6) 842-343!. 

MdeoScape 3D, from Aegis Development Inc. 

Aegis has released VideoScape 3D, a set of three programs for the Amiga that 
permit the creation of 3-D television quality graphics and animations. The 
package requires a minimum of 5i2K RAM, with mote preferred. 

The three programs that make up the package include Designer 3D, for making 
3D objects; PlayANiM, for playing back animations in real time; and VideoScape 
3D, for making the finished video, plus utilities for creating common geometric 
shapes such as spheres, cones, rectangles and fractal landscapes. 

3D objects are created either by numeric entry of X,Y,Zcoordinates, or by one of 
the supplied utilities, or by using Designer 3D's three-windowed point-and- 
click method. With DSD, there are three windows representing the front, side. 
and top view of your object as you create it. Scaling, numeric value display, and 
numeric entry help maintain accuracy as the object is drawn. When finished, a 
motion file can be loaded and the object is passed to the preview window. Here, 
in real time, the object can be shown in motion Irom all sides. Each frame of the 
motion file is recorded in RAM and played back at an adjustable speed. 

Once the objects are created, they are loaded into VideoScape's main control 
panel. Here the scenes are put together. Details regarding camera and object 
motion, backgrounds, foregrounds, horizon and other information are deter- 
mined, and a complete scene is created. A VCR can be hooked up to record the 
scene one frame at a time, or a few seconds at a time using the PlayANiM 

module. 

To create an AMM file requires at least one megabyte of RAM; however, many 
ANlMs will play back on a 512K Amiga. An ANIM file can compress a 40K frame 
into less than IK. The ANIM compressed file format is available at no chai^ to 
interested parties. 

VideoScape 3DJ 1 99.95 (US) h^om Aegis Development Inc., 22 WWiishire "277, 
Santa Monica, California, telephone (213) 392-9972 
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New! Impmved! 

TRANSBASIC 2! 



with SYMASS 








'* * 










"I used to be so ashamed of my dull, messy code, but 
no matter what I tried I just couldn^t get rid of those 
stubborn spaghetti stainsP" writes Mrs. Jenny R. of 
Richmond Hill, Ontario. 'Then the Transactor people 
asked me to try new TransBASIC 2, with Symass^. 
They explained how TransBASIC 2, with its scores of 
tiny 'tokens', would get my code looking clean, fast! 

"I was sceptical, but I figured there was no harm in 
giving it a try. Well, all it took was one load and I was 
convinced! TransBASIC 2 went to work and got my 
code looking clean as new in seconds! Now I'm telling 
all my friends to try TransBASIC 2 in their machines!" 



TransBASIC 2, with Symass, the symbolic assembler. 
Package contains aff 12 sets of TransBASIC modules 
from the magazine, plus full documentation. Make your 
BASIC programs run faster and better with over 140 
added statement and function keywords. 

Disk and Manual $1 7,95 US, $1 9.95 Cdn. 

(see order card at center and News BRK for more info) 

TransBASIC 2 

"Cleaner code, load after load!" 



Bits & Pieces I: 



Th 






From the famous book of the same name. Transactor 
Productions now brings you Bits & Pieces I: The Disk! 
You'll thrill to the special effects of the screen 
dazzlersl You'll laugh at the hours of typing time 
you'll savel You'll be Inspired as you boldly go 
where no bits have gone beforel 

"ExtraordinarUy faithful to the plot 
of the book. . . The BAM alone is 
worth the price of admission/" 

Vincent Canbyte 



'Absolutely 
magnetic!!" 

GeneSyscad 



44 



'If you mount only one bits disk in 1987, make it this 
one! The fully cross-referenced index is unforgettabiel 

Recs Read, New York TIS 



WARNING' Some sectors contarn nuii bvre:,. Rated GCR 



BITS S PIECES f: THE DISK. A Myfar Film, in association with Transactor Productjons, 

P^ayfng ai a drfve near you! 

Disk SS.95 US, S9,95 Cdn. Book S 1 4,95 US. S ) 7.95 Cdn. 
Book & Disk Combo Just S 1 9.95 US, S24,95 Cdnl 
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ypc in a lot or Traiisuctor pro^ranis? - 
Does tlieabovc (imc und appeuruuce of the «>k> look f'uiniliar^ 
With The Transactor Disk, any prot^rani Is just a LOAD away! 

Only $8.95 US, $9.95 Cdii. Per Issue 

6 Disk Subscription (one year) 

Jtist $45.00 US, $55.00 Cdn. 

(see order form at center fold) 
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Transactor Amiga Disk #1, $12.95 US, $14.95 Cdn 

All the Ainit*ti programs Troni the ma^a/ine, wllh coinpkic 
docuinciitatiiiii uii disk, phis mii' pick t>l llu- public tliniiaiii! 



